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

A voir également:

Renommer onglets en automatique
Renommer plusieurs fichiers en même temps - Guide
Recherche automatique des chaînes ne fonctionne pas - Guide
Restaurer onglets chrome - Guide
Message automatique thunderbird - Guide
Renommer iphone - Guide

1 réponse

Réponse 1 / 1

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)...

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

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...

Discussions similaires

Renommer un contact sur insta

renommer un lien internet