Macro pour changer ou ajouter un suffixe dans le gestionnaire du nom

[lyan]

Bonjour,

J'aurai besoin d'une méthode pour changer ou ajouter un suffixe a tous les noms présent dans le gestionnaire du nom.
Actuellement je les change un par un a la main c'est très long.

Merci

 

[Lone-wolf]

Bonjour lyan

Et nous nous avons besoin du fichier pour nous aider.

 

[lyan]

Voila,
La mise en page n'est pas faite j'en suis juste aux calcul

 

[Lone-wolf]

Re

Et bein!! 😱 Mon cher ami, un bon conseil... "Laisse tomber". Ou, deux exemples.

With Feuil1
x = .Range("a" & Rows.Count).End(xlUp).Row                                'ancien nom             'nouveau nom
.Range("a2:a" & x).Name = Replace(.Range("a2:a" & x).Name, "Je_Vais_Mourir", "Bonne_Chance")
End With

'Ceci pour tout les noms inscrits dans le gestionnaire.

'Pour ajouter

With Feuil10
.Range("b2:b80000").Name = "Punaise_Cest_Trop_Long_A_Faire"
End With

 

[mapomme]

Bonsoir à tous, @Lone-wolf,

Un essai dans le fichier joint pour supprimer, ajouter ou modifier un suffixe. Voir code dans Module2.
Attention! On peut vite se retrouver dans une situation inextricable si on joue beaucoup à modifier les noms sans discernement.

 

[Lone-wolf]

Bonsoir mapomme 🙂

Et bien, vu comme tu as fais la macro, le plus simple et de le faire manuellement, tu as vu tous les noms dans le gestionnaire?

 

[Lone-wolf]

Re à tous 🙂

Une autre façon de faire. Liste des prefixes en feuille2.