-----Message d'origine----- *De :* Lixon-photo.com [mailto:cont...@lixon-photo.com] *Envoyé :* mercredi 30 janvier 2008 14:55 *À :* pr...@fr.openoffice.org <mailto:pr...@fr.openoffice.org> *Objet :* Re: [prog] RE : [prog] macro VBA à transformer en Basic

lorsque que je vérifie le code, j'ai une erreur :

Run Time error Basic Une exception s'est produite: Type: com.sun.Star.container.noSuchElementException message :.

qu'eest-ce que cela veut dire?

chaliapine a écrit :

Complément à mon message précédent.

Je n'avais pas mis le code pour effacer le contenu des cellules.

Petite particularité de OOo, il faut une valeur associée à ClearContents.

Ici j'ai mis 4 qui correspond à STRING. Il efface donc les chaînes de caractères (pas les formats ou valeurs numériques, ...)

Pour la liste exhaustive de ces valeurs, cf. SDK :

http://api.openoffice.org/docs/common/ref/com/sun/star/sheet/CellFlags.html

Code complété:

Sub nomDesFeuilles

doc=thisComponent

lesFeuilles=doc.sheets

feuille1=lesFeuilles.getByName("Feuille1")

nbfeuilles=lesFeuilles.count

'effacer les cellules de la colonne A non vides

ligne=1

while feuille1.getcellrangeByName("A" & ligne).string<>""

feuille1.getcellrangeByName("A" & ligne).clearcontents(4)

ligne=ligne+1

wend

for i=1 to nbfeuilles

nomFeuille=lesFeuilles.getByIndex(i-1).name

feuille1.getcellrangeByName("A" & i).setString(nomFeuille)

next

End Sub

Bien cordialement.

Pascal PIERRE (alias Chaliapine)