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

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

Bonjour,

As-tu un petit fichier à joindre ou des exemples à nous donner ?

Cdlt.

Un exemple cependant :

Public Sub XXX()
Dim nm As Name
    For Each nm In ActiveWorkbook.Names
        nm.Name = "_" & nm.Name
    Next nm
End Sub

Bonjour,

Au risque de ne pas avoir bien compris ce que tu voulais et mettre compliqué la tâche voilà une petit fichier qui peut être utile plus tard lol

A plus !

52modifnoms.xlsm (21.23 Ko)

Voila,

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

Re,

Que veux-tu que l'on fasse ?

Cdlt.

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

Re,

Essaie ceci sur une copie de ton fichier (pas l'original !).

Public Sub XXX()
Dim nm As Name
    For Each nm In ActiveWorkbook.Names
        nm.Name = "x" & nm.Name
    Next nm
End Sub

Super ça fonctionne j'ai un x devant tout les noms.

Je peux demander les 3 autres macro pour compléter le tout?

  • la macro pour supprimer le x placé devant tous les noms
  • la macro pour ajouter un x en fin de chaque noms
  • la macro pour supprimer le x en fin de chaque noms

Merci.

Re,

A tester sur une copie de ton fichier !...

Cdlt.

Option Explicit
'----------------------------------------------------------
'D?but de chaine
'Ajout caract?re
Public Sub XXX_1()
Dim nm As Name
    For Each nm In ActiveWorkbook.Names
        nm.Name = "x" & nm.Name
    Next nm
End Sub
'Suppression caract?re
Public Sub XXX_11()
Dim nm As Name
    For Each nm In ActiveWorkbook.Names
        nm.Name = Left(nm.Name, Len(nm.Name) - 1)
    Next nm
End Sub
'----------------------------------------------------------
'Fin de cha?ne
'Ajout caract?re
Public Sub XXX_2()
Dim nm As Name
    For Each nm In ActiveWorkbook.Names
        nm.Name = nm.Name & "x"
    Next nm
End Sub
'Suppression caract?re
Public Sub XXX_22()
Dim nm As Name
    For Each nm In ActiveWorkbook.Names
        nm.Name = Right(nm.Name, Len(nm.Name) - 1)
    Next nm
End Sub
Rechercher des sujets similaires à "macro changer ajouter suffixe gestionnaire nom"