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

Réponse 1 / 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
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
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 contact sur insta
Rosie_17 -
Rrr -

2 réponses
renommer un lien internet
brian johnson -
pilou67000 -

1 réponse