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

Lone-wolf

XLDnaute Barbatruc

• 25 Mai 2018

• #2

Bonjour lyan

Et nous nous avons besoin du fichier pour nous aider.

 

Vote positif 0 Vote négatif

L

lyan

XLDnaute Nouveau

• 25 Mai 2018

• #3

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

 

Pièces jointes

• macro gestionnaire nom.xlsm

  687.1 KB · Affichages: 32

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 25 Mai 2018

• #4

Re

Et bein!! 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: 25 Mai 2018

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 25 Mai 2018

• #5

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: 25 Mai 2018

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 25 Mai 2018

• #6

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?

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 25 Mai 2018

• #7

Re à tous

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

 

Pièces jointes

• Classeur-exemple.xlsm

  15.3 KB · Affichages: 27

Vote positif 0 Vote négatif