Nom de feuille dans A1

T

Ti

Guest

• 15 Novembre 2002

• #2

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

 

Vote positif 0 Vote négatif

S

STéphane

Guest

• 15 Novembre 2002

• #3

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

 

Vote positif 0 Vote négatif

H

hasardeux

Guest

• 15 Novembre 2002

• #4

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

 

Vote positif 0 Vote négatif

T

Ti

Guest

• 15 Novembre 2002

• #5

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

 

Vote positif 0 Vote négatif