Renommer onglet excel suivant une liste

philipperp -  
Le Pingou Messages postés 12276 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
Configuration: Windows XP / Internet Explorer 8.0

1 réponse

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