Le nom de la feuille dans une cellule VBA excel
lecoyote94
Messages postés
2
Statut
Membre
-
Gyrus Messages postés 3360 Statut Membre -
Gyrus Messages postés 3360 Statut Membre -
Bonjour,
Ma modeste contribution pour inscrire le nom de toute les feuilles dans la cellule B1.
Sub NomFeuille()
Dim Ws As Worksheet
'Active la première feuille du classeur.
Sheets(1).Activate
'Boucle sur les feuilles du classeur.
For Each Ws In Worksheets
'Active la feuille et Inscrit sont nom dans la cellule [B1].
Ws.Activate
[B1] = ActiveSheet.Name
'Passe à la feuille suivante.
Next Ws
'Reviens à la première feuille du classeur.
Sheets(1).Select
'Fin de la procédure.
End Sub
Ma modeste contribution pour inscrire le nom de toute les feuilles dans la cellule B1.
Sub NomFeuille()
Dim Ws As Worksheet
'Active la première feuille du classeur.
Sheets(1).Activate
'Boucle sur les feuilles du classeur.
For Each Ws In Worksheets
'Active la feuille et Inscrit sont nom dans la cellule [B1].
Ws.Activate
[B1] = ActiveSheet.Name
'Passe à la feuille suivante.
Next Ws
'Reviens à la première feuille du classeur.
Sheets(1).Select
'Fin de la procédure.
End Sub
