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

lyan

XLDnaute Nouveau
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

XLDnaute Barbatruc
Re

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

VB:
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
 
Dernière édition:

mapomme

XLDnaute Barbatruc
Supporter XLD
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.
 

Fichiers joints

Dernière édition:

Lone-wolf

XLDnaute Barbatruc
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?
 

Haut Bas