Renommer onglets en automatique

Fermé
Nathauboulot Messages postés 1 Date d'inscription mercredi 15 juillet 2015 Statut Membre Dernière intervention 15 juillet 2015 - 15 juil. 2015 à 17:20
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 15 juil. 2015 à 18:18
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

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
15 juil. 2015 à 17:26
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 393 Date d'inscription mercredi 26 mars 2014 Statut Membre Dernière intervention 7 mars 2019 26
15 juil. 2015 à 18:06
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 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160 > PlacageGranby Messages postés 393 Date d'inscription mercredi 26 mars 2014 Statut Membre Dernière intervention 7 mars 2019
15 juil. 2015 à 18:18
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