XL 2019 macro excel passage format comptable US -> europe

[yani]

Bonjour a tous,
Je reviens vers vous car je suis bloqué sur une macro que j'ai codé au bureau.
je copie colle des donnees en A1 contenant des montant sous la forme : "ASML NA -34,453"
la macro s'occupe de transformé ce format en "ASML NA -34453" tout fonctionne bien jusqu'au moment ou la vcaleur de la cellule se termine par un zero
ex de la source : "ASML NA -38,000" une fois que je la colle il s'affiche "ASML NA -38,00" et donc ASML NA -3800 apres le run de la macro
cf le code de ma macro
Sub basket()

Dim maPlage As Range
Dim DernLigne As Long
'dernière ligne colonne A
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
'dernière colonne ligne 1

Set maPlage = Range(Cells(1, 1), Cells(DernLigne, 2))

'pour chaque cellule de ma plage
For Each c In maPlage
'je remplace la , par "'"
c.Value = Replace(c.Value, ",", "")

'je remplace le + par ""
c.Value = Replace(c.Value, "+", "")
Next c
Sheets("JP10 CLO").Select
End Sub
merci pour votre coup de main

 

[sylvanu]

Bonsoir Yani,
Pourquoi ne pas faire au plus simple en rajoutant :

If Right(c.Value, 1) = "0" Then c.Value = c.Value & "0"

juste avant le dernier Next.