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