remplacer avec gestinnaire de nom

  • Initiateur de la discussion Initiateur de la discussion Keran
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Keran

XLDnaute Junior
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".

Code:
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
 
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
 
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.@+
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
677
Réponses
12
Affichages
1 K
Retour