Renommer onglet excel suivant une liste

Fermé
philipperp - 25 févr. 2010 à 12:05
Le Pingou Messages postés 11538 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 mars 2023 - 25 févr. 2010 à 17:49
Bonjour,
je voudrais renommer des onglets dans un fichier excel 2003 suivant une liste d'une des feuilles de traail
debutant en prog
merci à tous

1 réponse

Le Pingou Messages postés 11538 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 mars 2023 1 334
25 févr. 2010 à 17:49
Bonjour,
La liste sur la feuille [Feuil1] en colonne [A] et en [A1] le premier nom.
La procédure à copier dans le Modules (accès par touche Alt+F11):
Sub NommerTouteFeuille()
Dim ctr As Byte, li As Byte
li = 1
  For ctr = 1 To Sheets.Count
    Sheets(ctr).Name = Cells(li, 1).Value
    li = li + 1
  Next
End Sub
-1