XL 2016 Remplacer virgule par un point VBA

job75

XLDnaute Barbatruc

• 1 Août 2019

• #2

Bonjour sams96,

sams96 à dit:

je cherche à remplacer la virgule par un point

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

S

sams96

XLDnaute Nouveau

• 1 Août 2019

• #3

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 .

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Août 2019

• #4

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

 

Pièces jointes

• Point(1).xlsm

  559.1 KB · Affichages: 38

Vote positif 0 Vote négatif