Bonjour,

Je cherche à faire un remplacer de "," vers "." dans un fichier via une macro VBA.

Quand je lance l'enregistrement d'une macro cela me donne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Macro3()
'
' Macro3 Macro
'
 
'
    Columns("H:H").Select
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub
Sauf que quand je lance cette macro cela ne fait rien. Alors même que ce que j'ai fait en l'enregistrant a bien fonctionné.

J'ai lu plein de façon différente de faire ce 'remplacer' mais aucun ne fonctionne.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
    Dim c As Range
    Dim d As String
 
    For Each c In Range([E4], [E65536].End(xlDown))
        d = Replace(c, ",", ".")
 
    Next c
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
Set r = Range([E4], [E65536].End(xlDown))
    r.FormulaLocal = r.Formula

il doit y avoir une finesse qui m'échappe.

Quelqu'un aurait une idée ?

Merci d'avance.