Aide sur code Find Replace

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:

---

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:

---

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 !

Essaye de remplacer :

Code:

---

1 2	Range("A1").Value = LetterLastMonthLY Range("A2").Value = LetterMonthLY

---

Par :

Code:

---

1 2	Range("A1").Value = "_" & LetterLastMonthLY & "_" Range("A2").Value = "_" & LetterMonthLY & "_"

---

Pour vérifier s'il n'y aurait pas des espaces malencontreux qui traineraient dans le contenu de ces variables.

Bonjour,

Code:

---

1 2	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)

---

Tu es sûr que ça te retourne les lettres des colonnes ça ?
Contrôle le contenu de tes variables en pas à pas.
eric

Merci de vos reponses. J ai essaye de voir s il y a des espaces et controle le contenu de mes variables. Le code suivant (mentionne precedemment) me permettait de controler le contenu de mes variables.

Code:

---

1 2	Range("A1").Value = LetterLastMonthLY Range("A2").Value = LetterMonthLY

---

J ai bien des lettres (Les lettres "AA" et "Z") qui correspondent bien aux colonnes que je souhaite changer. Ce que je ne comprends pas c est que lorsqueje rentre directement ces lettres cela fonctionne :

Code:

---

1 2 3

Selection.Replace What:="$Z", Replacement:="$AA", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False

---

Alors que lorsque je rentre ma variable le code ne fonctionne plus :s Est ce que par hasard cela porrait etre lie a des parametres de formules actives ? Ou des proprietes des liens hypertextes ? Je debute donc je suis perdue...

Code:

---

Application.WorksheetFunction.Index

---

te retourne une lettre ? Ah...

Oui, cela remvoie une letter puisqu il s agit d une formule IndexMatch qui cherche un mois et renvoie la letter de la colonne a changer (differente pour chaque mois). POur que ce soit un peu plus clair j ai insere le tableau source.

Le probleme est resolu. Il ne venait pas de mon code mais du fichier externe. Merci a tous pour votre aide !