Bonjour
Sur une feuilles j'ai nommé une cinquantaine de cellule du type
tony_D_3tr
et je veux sur une copie de cette feuille modifier tout les noms avec 3tr en 4tr
en test enregistrement macro ça donne ça
et ainsi par la suite appliqué la même méthode pour une feuille en 1tr et en 2tr
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Sub Macro1() With ActiveWorkbook.Worksheets("EBP 4TR").Names("tony_D_3tr") .Name = "tony_D_4tr" .RefersToR1C1 = "='EBP 4TR'!R124C3" .Comment = "" End With End Sub
Merci pour votre aide
Partager