Extraction des noms de feuille
Max
-
kiki -
kiki -
bonjour a tous,
Je cherche a extraire en vba le nom des feuilles d'un groupe de travail. Un grand merci a celui(celle) qui voudra bien s'atteler au problème.
M
Je cherche a extraire en vba le nom des feuilles d'un groupe de travail. Un grand merci a celui(celle) qui voudra bien s'atteler au problème.
M
4 réponses
-
Salut,
Désolé je sais que la réponse est un peu tardive mais je lisais les anciens messages sans réponses et je suis tombé sur le tien.
Le nom de la feuille courante s'appelle activesheet.name.
J'espère que c'est pas trop tard et que ma réponse correspond à ta question.
;-)
~ ~ Fada ~ ~ : Member of Star!alco-
Salut Fada 09,
Merci pour ta réponse qui se ne rapporte qu'au nom de la feuille active ; je cherche le moyen d'extraire le nom de chaque feuille d'un groupe de travail (donc les noms des feuilles sélectionées).
Cela me permettrait d'activer ma macro une seule fois pour un groupe de feuilles, au lieu de l'activer pour chaque feuille.
Merci quand même!
-
-
ça peu t'aider
http://www.commentcamarche.net/forum/affich-424613-VBA-Lister-toute-les-feuilles-dans-une-combo
ça pour lister les noms de feuilles dans une zone de liste modifiable :
Sub UserForm_Initialize()
For i = 1 To ThisWorkbook.Sheets.Count
ComboBox1.AddItem (ThisWorkbook.Sheets(i).Name)
Next i
End Sub
pour lister les noms de feuilles dans les cellules A1 jusqu'à A(nombre de feuilles)
Sub noms_de_feuilles()
For i = 1 To ThisWorkbook.Sheets.Count
Cells(i, 1).Activate
Cells(i, 1).Value = ThisWorkbook.Sheets(i).Name
Cells(i + 1, 1).Activate
Next i
End Sub
évidement tu peux choisir la cellule de votre choix pour commenser le listing des feuilles -
pardon il y a une petite erreur , le deuxième listing est :
pour lister les noms de feuilles dans les cellules A1 jusqu'à A(nombre de feuilles)
Sub noms_de_feuilles()
For i = 1 To ThisWorkbook.Sheets.Count
Cells(i, 1).Activate
Cells(i, 1).Value = ThisWorkbook.Sheets(i).Name
Next i
End Sub -
