Bonjour,
Merci à tous,
J'ai pu tester une nouvelle forme de boucle et comprendre pourquoi mon
while fonctionnait mal.
Le lundi 26 septembre 2005 à 00:03:34, vous écriviez :
b> Bonjour,
b> C'est ma premiere macro
b> Je veux creer autant de feuilles que de classes
b> J'ai inscrit l'intitulé de mes classes dans une colonne
b> La macro crée les feuilles en descendant d'une cellule à chaque tour
b> et je voudrais qu'elle s'arrete lorsqu'elle rencontre une cellule vide
b> mes feuilles se créent (bien) mais j'obtiens un message d'erreur
>> runtime error basic
>> exception
>> type :com.sun.star.unoexception
>> Message:.
b> et la ligne
b> LesFeuilles.insertNewByName(classe,-1)
b> se met en rouge
b> La condition après le While est elle bonne ?
>> sub creefeuille
>> rem Créer des feuilles
>>
>> Dim MonDocument As Object
>> Dim NouvelleFeuille As Object, LesFeuilles As Object
>> Dim rang as integer
>> Dim classe as string
>> Dim macellule as object
>> Dim mafeuille as object
>>
>> MonDocument = ThisComponent
>> LesFeuilles = MonDocument.Sheets
>> mafeuille = lesfeuilles.getbyname("Commandes")
>>
>> rang = 1
>> macellule = mafeuille.getCellByPosition(7,rang)
>> classe = macellule.string
>> While classe<>""
>>
>> macellule = mafeuille.getcellbyposition(7,rang)
>> classe = macellule.string
>> LesFeuilles.insertNewByName(classe,-1)
>>
>> rang = rang + 1
>>
>> Wend
>> MsgBox "BRAVO"
>> end sub
b> merci
--
Cordialement,
bopouv mailto:[EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
