Renommer onglets en automatique

Nathauboulot Messages postés 1 Statut Membre -  
ThauTheme Messages postés 1564 Statut Membre -
Bonjour,

Je souhaite pouvoir renommer en automatique les onglets de mon classeur sans avoir à recliquer sur chaque feuille pour la rendre active afin que le nom s'affiche. C'est le cas avec le code que j'ai utilisé.

Auriez vous une piste ? je suis novice en VBA!!
Merci de votre aide

Voici le code qe j'ai utilié
Private sub Worksheet_Activate()
ActiveSheet.Name = Range("A1")
End Sub

1 réponse

  1.
    ThauTheme Messages postés 1564 Statut Membre 160
     
    Bonjour Nathauboulot, bonjour le forum,

    Peut-être comme ça : 
    For I = 1 To Cells(Application.Rows.Count, 1).end(xlUp).Row
     Sheets(I).Name = Cells(I, 1).Value
Next I


    Les onglets vont prendre le nom des cellules en colonne A (à adapter)...
    0
    1. PlacageGranby Messages postés 402 Statut Membre 26
       
      Bonjour,
      Le code de ThauTheme prend la colonne A de la feuille active et descend ligne par ligne pour affecter le nom des feuilles.

      Si par contre, chaque feuille à son nom en A1 
      For I = 1 To Application.Worksheets.Count
     Sheets(I).Name = Sheets(I).Cells(1, 1).Value
Next I
      0
      1. ThauTheme Messages postés 1564 Statut Membre 160 > PlacageGranby Messages postés 402 Statut Membre
         
        Oui, c'est évidement bien mieux pensé !... Je mets un +1 virtuel car on ne peut pas le faire sur un commentaire mais ça me démange trop...
        0

Discussions similaires

renommer un lien internet
brian johnson -
pilou67000 -

1 réponse
comment changer le nom d'un lien?
nina20 -
MattisFreeman -

17 réponses