Discussion :

[bosk1000]

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 :

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

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

Merci pour votre aide

[Igloobel]

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

[bosk1000]

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

[bosk1000]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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