Discussion :

[Celi2a]

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 !

[Menhir]

Essaye de remplacer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[eriiic]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Celi2a]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[eriiic]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.WorksheetFunction.Index

te retourne une lettre ? Ah...

[Celi2a]

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.