Remplacer avec gestinnaire de nom

Bonjour a tous,

je rencontre un petit soucis , et mon niveau actuel de vba me limite encore un peu ^^'.

Voila j'aimerai crée une maccro qui aurais pour fonction de remplacer dans ma feuille1 , le mot compris dans mon gestionnaire de nom "teste" par le mot compris par le mot aussi nommer dans le gestionnaire de nom appeler lui "teste2".

Sub teste()
teste Macro
    Sheets("feuille1").Select
    Cells.Replace What:="teste", Replacement:="teste2"

End Sub

j'avais essayer cela mais bon ...

merci d'avance si vous avez une idée qui pourrais etre compris par mon petit cerveau :3

Bonjour Keran Latos,

je te propose ce code VBA :

Sub teste()
  Dim nom1$, nom2$, chn$: Worksheets("feuille1").Select
  chn = Names("teste"): chn = Right$(chn, Len(chn) - 2)
  nom1 = Left$(chn, Len(chn) - 1)
  chn = Names("teste2"): chn = Right$(chn, Len(chn) - 2)
  nom2 = Left$(chn, Len(chn) - 1)
  Cells.Replace What:=nom1, Replacement:=nom2
End Sub

exemple : valeur du nom défini teste : ="Bonjour"

Right$() est pour enlever les 2 premiers caractères « =" »

Left$() est pour enlever le dernier caractère « " »

➯ nom1 contient Bonjour

dhany

parfais ! merci beaucoup !

merci pour ton retour ! bonne continuation !

dhany

(juste une aparter mais si ma valeur du nom défini teste : ="Bonjour" ; est plutôt une référence a une cellule sa marche aussi ? )

non c'est différent ; pour t'aider davantage, merci de joindre un fichier avec un exemple.

dhany

https://www.cjoint.com/doc/18_11/HKipGnBEDJv_Classeur1.xlsx

voila ^^' merci et desoler d'embeter encore ..

j'ai pas encore vu ton fichier, mais essaye déjà avec ça :

Sub teste()
  Dim nom1$, nom2$: Worksheets("feuille1").Select
  nom1 = Evaluate(Names("teste").Value)
  nom2 = Evaluate(Names("teste2").Value)
  Cells.Replace What:=nom1, Replacement:=nom2
End Sub

dhany

impec ! par contre je viens de me taper la tête tellement ça parrait evident apres avoir lu ton code en tous cas encore un GRAND merci a toi .

j'ai bien lu ton post de 16:45, et je te remercie pour ton retour !

je te retourne quand même ton fichier modifié :

attention : lis bien toutes les infos que j'ai ajoutées !

fais Ctrl e pour exécuter la macro

Alt F11 pour voir le code VBA

dhany