La question de Pierre à l'origine, d'une part a trouvé réponse(s) et de
plus personnellement, si j'ai appris entre autres choses à utiliser la
fonction INDIRECT , j'aurai également pris connaissance de l'existence
de ce document très utile de Christian :
http://christianwtd.free.fr/index.php?rubrique=DebFonctions04#FnINDIRECT
Merci
Claude
Le 28/07/2010 18:58, pierrre a écrit :
gerardF<gerard.perigord<at> laposte.net> writes:
gerardF<gerard.perigord<at> laposte.net> writes:
Excellent, mais...
je ne crois pas que cela corresponde à la question.
Cette formule permet de récupérer le nom de la feuille courante dans une
cellule.
Or Pierre cherche à récupérer les noms des autres feuilles dans sa feuille
récap. Et la ce n'est possible que par macro.
Gérard
------------
Je viens d'écrire une macro, les noms des feuilles sont récupérées à partir de
la cellule B2.
J'ai supposé que ta feuille récap était la première feuille du classeur.
Voici :
Sub ListerFeuilles
Dim oDoc , oSheet As Object
Dim oCell
Dim i , j As Integer
oDoc = ThisComponent
oSheet = ThisComponent.Sheets(0)
j = oDoc.Sheets.Count - 1
' Le nombre de feuilles moins 1 ( la numérotation des feuilles
commence à 0 )
For i = 1 to j
' l'index de la 1ere feuille = 1 cela suppose que la feuille récap est
la première
oCell = oSheet.getCellByPosition(1,i)
' la première cellule à remplir est B2
oCell.string = oDoc.Sheets(i).Name
Next i
End Sub
C'est la première macro, elle a l'air de fonctionner mais si un spécialiste
veux bien y jeter un coup d'oeil.
Gérard
--------------
MERCI !!! ça marche très bien !
bonne soirée,
Pierrre
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
