modification de nom plusieurs nom de cellule

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

Code:

---

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

---

et ainsi par la suite appliqué la même méthode pour une feuille en 1tr et en 2tr

Merci pour votre aide

Bonjour,

Tu fais ta copie de feuille manuellement ?

Parce que si tu le fais par macro tu peux insérer ton petit bout de code au moment de la copie

Merci pour ton aide

non je fais déplacer ou copier, créer une copie

du coup les nom en "3tr" son copier sur la nouvelle feuille

j'ai découvert qu'on, pouvait récupérer l'information des position et alias grâce à la manip
sur le ruban Formules
-->dans la parties "noms définis"
----->Dans une formule sélectionné Collé des noms tout en bas
--------->click sur coller une liste

la j'ai récupérer la liste complete des nom
je garde que la partir en 3tr
après avec des modification par "remplacer"
et avec du concaténage je reconstitue tout ce qui m'interesse

et en code j'ai mis :

Code:

---

1 2 3 4 5 6 7 8 9

Sheets("EBP 4TR").Select Range("C119").Select ActiveWorkbook.Names.Add Name:="hubert_D_4tr", RefersToR1C1:="='EBP 4TR'!R119C3" Range("C120").Select ActiveWorkbook.Names.Add Name:="gisse_D_4tr", RefersToR1C1:="='EBP 4TR'!R120C3" Range("C121").Select ActiveWorkbook.Names.Add Name:="gouin_D_4tr", RefersToR1C1:="='EBP 4TR'!R121C3" ....etc...etc

---

c'est assez rapide et pas trop fastidieux

bon y a surement plus pro mais mais ça fait le boulot et facile ensuite de modifier 4TR en 1TR ou 2TR pour refaire la manip