Bonjour
Tu peux tester cette adaptation
sub creeFeuille
Dim MonDocument As Object
Dim LesFeuilles As Object
Dim rang as integer
Dim classe as string
Dim macellule as object, mafeuille as object
MonDocument = ThisComponent
LesFeuilles = MonDocument.Sheets
mafeuille = lesfeuilles.getbyname("Commandes")
Do
rang = rang + 1
macellule = mafeuille.getcellbyposition(7,rang)
classe = macellule.string
If classe="" Then Exit Do
LesFeuilles.insertNewByName(classe,-1)
Loop
MsgBox "BRAVO"
end sub
Cordialement
Michel
-----Message d'origine-----
De : bopouv [mailto:[EMAIL PROTECTED]
Envoyé : lundi 26 septembre 2005 00:04
À : prog
Objet : [prog] while condition
Bonjour,
C'est ma premiere macro
Je veux creer autant de feuilles que de classes
J'ai inscrit l'intitulé de mes classes dans une colonne
La macro crée les feuilles en descendant d'une cellule à chaque tour et
je voudrais qu'elle s'arrete lorsqu'elle rencontre une cellule vide
mes feuilles se créent (bien) mais j'obtiens un message d'erreur
> runtime error basic
> exception
> type :com.sun.star.unoexception
> Message:.
et la ligne
LesFeuilles.insertNewByName(classe,-1)
se met en rouge
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
merci
--
Cordialement,
bopouv mailto:[EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
