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?
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas