Bonjour A tous,

Je commence a programmer un peu en VBA et je rencontre des difficultes a effectuer un code Recherche/Remplacement avec une variable que j ai creee. J ai au prealable enregistre une macro (qui fonctionne), mais je n arrive pas a voir ce qui cloche dans mon code. Voici donc le code que j ai :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim LetterMonthLY As String
Dim LetterLastMonthLY As String
LetterMonthLY = Application.WorksheetFunction.HLookup(CurrentMonth, DataL, 2, False)
LetterLastMonthLY = Application.WorksheetFunction.Index(DataL, 2,  Application.WorksheetFunction.Match(CurrentMonth,  Sheets("Parameters").Range("B2:M2"), 0) - 1)
 
Range("A1").Value = LetterLastMonthLY
Range("A2").Value = LetterMonthLY
 
Range("D3:E20").Select
Selection.Replace What:="$" & LetterLastMonthLY, Replacement:="$" & LetterMonthLY, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Et voici le code qui fonctionne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
Range("D3:E20").Select
Selection.Replace What:="$Z", Replacement:="$AA", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Est ce que quelqu un a la moindre idee de la raison pour laquelle cela ne fonctionne pas ?
Je precise que je remplace des caracteres dans une formule (ou plus exactement des liens vers un autre fichier). Je ne sais pas si cela a un impact mais je prefere le mentionner. Cependant je ne vois pas pourquoi cela marcherait dans un cas et pas dans l autre.

Merci a tous !