une formule qui copie les noms des feuilles

[Thomas]

Bonjour le forum,

savez vous si il existe une formule qui permet de copier le nom des feuille dans les cellules d'une feuille .

exemple : le nom des mes feuille1, feuille2 et feuille3 qui s'inscrit automatiquement dans la collone A de ma feuille 4 de la maniere suivante feuille 1 (dans A1) puis feuille 2 (dans A2) et feuille 3 (dans A3),

en fait le but est de faire un USF qui me premet de saisir est rechercher des donnés dans plusieurs feuil (car je sais le faire en mettant le nom de la feuille par une variable 'VarMois', mais je souaite alimenter ma variable par cette formul qui ce fait toute seul (ma combobox qui allimente la varible (VarMois) puise ses donnés dans ma feuille 4 colonne A (si je reprend l'exemple ci dessus),

en utilisant cette methode si je cré une nouvelle feuille peu importe son nom je pourrai faire des recherche avec mon USF dans avoir a modifier le code VBA car la formule rapatrirait le nom de la feuille a l'endrois ou le combobox prend ses donnés VarMois(donc avec la nouvelle feuille inclus)

With Sheets(VarMois)
Prenom = .Range('B' & Nom.List(Nom.ListIndex, 1))
Declar = .Range('D' & Nom.List(Nom.ListIndex, 1))
Appz = .Range('E' & Nom.List(Nom.ListIndex, 1))
Lieu = .Range('F' & Nom.List(Nom.ListIndex, 1))
Domaine = .Range('G' & Nom.List(Nom.ListIndex, 1))
Adresse = .Range('H' & Nom.List(Nom.ListIndex, 1))
datereso = .Range('I' & Nom.List(Nom.ListIndex, 1))
Ville = .Range('J' & Nom.List(Nom.ListIndex, 1))
Statut = .Range('c' & Nom.List(Nom.ListIndex, 1))

End With

D'avance merci (je n'ai mis qu'un bout de code car je sais ce celui ci est asser explicite (plus que mais explication je pense)

 

[MichelXld]

bonjour Thomas

pour lister le nom des feuilles à partir de la celule A1 de la feuille 4 , tu peux tester



Dim i As Byte
For i = 1 To Sheets.Count
Sheets('Feuil4').Cells(i, 1) = Sheets(i).Name
Next i



bon dimanche
MichelXld

 

[Thomas]

je la mets dans 'ThisWorkbook'.

et je fais comment pour qu'elle s'execute?

est il possible de faire en sorte qu'a chaque modification elle ce recalcule?

du genre ouverture fichier, ajout de feuille, suppréssion de feuille.??

Merci d'avance.
Thomas

 

[Robert]

Bonjour Thomas, Michel, Bonjour le forum,

Efficacité absolue du code de Michel... Je le remercie pour toi. Tu pourrais le coller dans deux événements pour être sûr qu'il soit toujours à jour. Dans ThisWorkbook, une première fois dans l'événement Open de l'objet Workbook et une deuxième fois dans l'événement NewSheet du même objet Workbook.

 

[MichelXld]

Merci Robert ...;o)

MichelXld

 

[Thomas]

Merci 😉