Renommer onglet excel suivant une liste

philipperp -  
Le Pingou Messages postés 12656 Date d'inscription   Statut Contributeur Dernière intervention   -
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
A voir également:

1 réponse

Le Pingou Messages postés 12656 Date d'inscription   Statut Contributeur Dernière intervention   1 466
 
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