Bug "." et "," sur fonction "Remplacer"

[Kernoz]

Bonjour à tous,

J'ai un petit soucis sur un code que voici :

Application.Goto Reference:="Code"
Selection.Replace What:="5045.01", Replacement:="198.01", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Logiquement, sur ma plage les "5045.01" sont remplacés par "198.01" mais lorsque je lance ma macro, les 5045.01 sont remplacés par "198,01" , c'est une virgule à la place d'un point.

Comment puis regler ce petit soucis ?

D'avance merci.

 

[chris]

Re : Bug "." et "," sur fonction "Remplacer"

Bonjour

Au préalable forcer le format de cellule en texte.

 

[Roland_M]

Re : Bug "." et "," sur fonction "Remplacer"

bonjour,

Salut à toi Chris !
effectivement il suffit mettre le signe ( ' ) devant "'198.01"

exemple:
Selection.Replace What:="5045.01", Replacement:="'198.01", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

 

[Staple1600]

Re : Bug "." et "," sur fonction "Remplacer"

Bonsoir à tous

Même punition avec SUBSTITUE 😉

Sub a()
[A1] = "5045.01"
[A1] = Application.Substitute([A1], "5045.01", "'198.01")
End Sub