Nom de feuille dans A1

[hasardeux]

Bonjour tout le monde,

J'ai une cinquantaine de feuilles dans un classeur.

Comment, VIA MACRO, renvoyer d'un seul coup le nom de chaque feuille dans la cellule A1 de la dite feuille.

Merci d'avance

 

[Ti]

un truc très simplifié de ce genre fait très bien l'affaire

Sub feuilles()
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Range("A1").Value = Sh.Name
Next Sh
End Sub

 

[STéphane]

bonjour

il y a des formules pour récupérer le nom d'un onglet.
tu pourrais ainsi essayer de procéder à la création sur chaque feuille de cette formule.

pour trouver la formule, cherche dans les anciens messages

bye
Stéphane

 

[hasardeux]

Rebonjour ,

Comment dans cette macro ne considérer que les feuilles selectionnées (car j'ai d'autres feuilles où je veux pas appliquer la macro?

Sub feuilles()
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Range("A1").Value = Sh.Name
Next Sh
End Sub


Merci

 

[Ti]

corrige la macro comme ceci :

Sub feuilles()
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
Sh.Range("A1").Value = Sh.Name
Next Sh
End Sub