Renommer onglets en automatique
Nathauboulot
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention -
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Renommer onglets en automatique
- Renommer des fichiers en masse - Guide
- Réponse automatique thunderbird - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
- Renommer iphone - Guide
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