XL 2016 Remplacer virgule par un point VBA

[sams96]

Bonjour à tous ,
j ai une colonne ( colonne I) qui comporte des chiffres en pourcentage par 0,003 %
et je cherche à remplacer la virgule par un point avec la fonction replace , mais cela ne marche pas .
est - ce qu'il serait possible de m'aider sur ce point ?
Merci d'avance .

 

[job75]

Bonjour sams96,

je cherche à remplacer la virgule par un point

En général on veut faire l'inverse mais bon :

Sub Point()
Dim tablo(), i&
With Range("I1", Range("I" & Rows.Count).End(xlUp))
    ReDim tablo(1 To .Rows.Count, 1 To 1)
    For i = 1 To UBound(tablo)
        tablo(i, 1) = "'" & Replace(.Cells(i, 1).Text, ",", ".")
    Next
    .Value = tablo
End With
End Sub

A+

 

[sams96]

Je ne sais vraiment pas comment te remercier @job75 , ça fait plus de 2H que je cherche sur internet et j ai rien trouver .
Merci bcp .

 

[job75]

Sur 100 000 lignes la macro s'exécute chez moi en 2,6 secondes, c'est très acceptable.