Nom des feuilles de fichiers en liste

[Mamounax]

bonjour,

j'utilise la formule indirect pour renvoyer l'information d'une cellule de toutes les feuilles. Je cherche maintenant une façon de lister toutes le nom des feuilles d'un fichier pour ne pas à avoir à les transcrire manuellement. Est-ce qu'un génie pourrait m'aider ?

merci d'avance

 

[Softmama]

Re : Nom des feuilles de fichiers en liste

Bonjour,

Ci-joint un exemple pratique via VBA et menus contextuels.

 

[mth]

Re : Nom des feuilles de fichiers en liste

Bonsoir,

Peut-être avec un code de ce type:

Sub onglets()
With Sheets("Feuil1") 'Travaille sur l'onglet Feuill1
.Columns("A:A").ClearContents ' Efface le contenu de la colonne A
For i = 1 To Sheets.Count 'de 1 à sheets.count=le nombre d'onglets
.Cells(i, 1) = Sheets(i).Name 'inscrit le nom dans la cellule i colonne 1
Next i
End With
End Sub

Bonne soirée,

mth

Edit: Bonsoir Softmama 🙂
(pfiouuuu, c'est sophistiqué ton fichier 🙂 🙂 )
@ +
m

 

[BOISGONTIER]

Re : Nom des feuilles de fichiers en liste

Bonjour,

Récap onglets

http://boisgontierjacques.free.fr/fichiers/Indirect/IndirectRecapOnglets.xls

JB