Changement nom feuille selon cellule d'une autre feuille

Bonjour le forum

Voilà je voulais savoir s'il était possible de changer le nom de certaines feuilles par rapport à une cellule d'une autre feuille, j'ai regardé sur le forum mais rien qui concerne vraiment mon problème .

Je vous mets en pièce jointe un exemple, je souhaiterai juste changer les noms de feuilles A,B,C,D en 1,2,3,4

Je vous remercie

9exemple.xlsx (12.29 Ko)

Bonjour

Code dans un Module

Sub Renomme()
Dim Cel As Range
For Each Cel In Range("C3", Range("C3").End(xlDown))
Worksheets(Cel.Value).Activate
ActiveSheet.Name = Cel.Offset(0, 1).Value
Next Cel
End Sub

Cordialement

14exemple.xlsm (21.95 Ko)
Rechercher des sujets similaires à "changement nom feuille"