remplacer avec gestinnaire de nom

[Keran]

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

 

[Dranreb]

Bonjour.
Précisez peut être toutes les options laissées lors de la derniere recherche manuelle. Notamment celle qui dit de regarder dans les formules et non dans les valeurs.

 

[Keran]

justement j'aimerais remplacer dans une formules , (j'aimerais éviter la fonction indirect).
merci

 

[zebanx]

Bonjour à tous.

Un code qui fonctionne bien pour remplacer le nom d'une plage nommée.

Sub rename_a_range_name()
'https://stackoverflow.com/questions/21443737/vba-excel-2010-renaming-named-ranges
'--- code de Paul Kelly
Dim NewName As Variant
ThisWorkbook.Names("Jplage").Name = "Kplage"
End Sub

 

[Keran]

deja merci :3 , du coup sa me renome bien ma plage mais mon souhait serais plutot de faire remplacer dans ma formule je sais pas si je suis clair

 

[Dranreb]

Normalement l'enregistreur de macro met les paramètres LookIn et LookAt qui permettent de chercher comme il faut.

 

[Keran]

Sub Macro3()
'
'teste2 Macro
Selection.Copy
Range("AI8").Select
Application.CutCopyMode = False
Selection.Copy
Range("AI7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BJanvier").Select
Cells.Replace What:="2017", Replacement:="2018", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

End Sub


a la base j'aimerais qu'il recupere les donnée en worksheet(données).Range("AI8") et les remplace worksheet(données)..Range("AI7") et non par son 2017 par 2018 dans la feuille bjanvier

c'etait ma volonter a la toute base

 

[zebanx]

Keran,

Envoyer svp un fichier avec ce que vous voulez exactement car entre le gestionnaire de noms et une fonction indirect pour récupérer une valeur, là je nage (et c'est tout personnel) entre la demande #1 et la demande #7.

Merci.@+

 

[Keran]

je bricole sa car le fichier sur le quel je veut l'utiliser je ne peu pas le partager , merci en tous cas de vos reponse !

 

[Keran]

voila la vba qu'on ma proposer et qui fonctionne :3
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

 

[Dranreb]

Et jamais, LookIn:=xlFormulas ? Le dernière recherche manuelle a peut être laissé LookIn:=xlValues