le nom de la feuille dans une cellule VBA excel Fermé

Question

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

Gyrus · Answer

Bonjour,

Il est préférable d'éviter les "Activate" et autres "Select" inutiles.
Sub NomFeuille()Dim Ws As Worksheet    For Each Ws In Worksheets        Ws.Range("B1") = Ws.Name    Next WsEnd Sub

A+

Le nom de la feuille dans une cellule VBA excel

1 réponse

Discussions similaires

Newsletters