Séparateur de milliers

Bonjour à tous,

Quand je copie des nombres depuis une source internet, j'ai souvent l'affichage du séparateur de milliers qui m'embête.

J'ai donc un code me permettant de transformer par exemple 10 000,23 en 10000,23 :

drligne = Range("a" & Rows.Count).End(xlUp).Row
For i = 1 To drligne
If IsNumeric(Range("a" & i)) Then
Range("g" & i) = Range("a" & i) * 1
Else
Range("g" & i) = ""
End If
Next i

Ce code ne fonctionne pas en revanche si le séparateur de milliers est un point : 10.000,23

Quelqu'un a-t-il une solution?

Merci d'avance!

NB : je travaille avec Excel 2013.

Mathieu

Hello,

Tu peux faire un replace

oubien texte to colonne avec aucun separateur

Remplacer évidemment!

Pourquoi toujours chercher la complication...

Merci!