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.
 

Pièces jointes

  • Lyan- macro gestionnaire nom- v1.xlsm
    792.8 KB · Affichages: 29
Dernière édition:

Discussions similaires

Réponses
12
Affichages
429

Statistiques des forums

Discussions
311 720
Messages
2 081 889
Membres
101 831
dernier inscrit
gillec