Nommer automatiquement onglets excel

sofienexcel Messages postés 72 Statut Membre -  
sofienexcel Messages postés 72 Statut Membre -
Bonjour,

J'utilise Excel 2010, dans un rapport de 50 onglets je souhaite les renommer tous à la fois, par exemple feuil1: 012013, feuil2, 022013, ... y'a t-il un code vba qui modifie le nom de chaque onglet en se basant sur les données d'une feuille 51 (feuille source), rien n'est impossible
merci

1 réponse

  1.
    via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Bonsoir

    Avec les noms à donner en A1:A50 de la 51eme feuille : 
    Sub renommer()
For n = 1 To 50
Sheets(n).Name = Sheets(51).Range("A" & n)
Next
End Sub


    Cdlmnt
    Via
    1
    1. sofienexcel Messages postés 72 Statut Membre
       
      parfait ça fonctionne bien, merci beaucoup via55
      0