XL 2016 Remplacer virgule par un point VBA

sams96 · 1 Août 2019

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 · 1 Août 2019

Bonjour sams96,

sams96 à dit:
je cherche à remplacer la virgule par un point

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

VB:

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 · 1 Août 2019

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 · 1 Août 2019

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

XL 2016 Remplacer virgule par un point VBA

sams96

XLDnaute Nouveau

job75

XLDnaute Barbatruc

sams96

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

XL 2016 Remplacer virgule par un point VBA

sams96

XLDnaute Nouveau

job75

XLDnaute Barbatruc

sams96

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency