Discussion :

[Runsh63]

Bonjour,

J'ai besoin de retraiter des données qui m'arrivent en csv et où le séparateur de décimales est un ".", que je souhaite reformater avec une ",".

Une de mes premières lignes de code est donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Columns("D:F").Replace What:=".", Replacement:=","

Quand je le fais manuellement, aucun problème, par contre à l'exécution de la macro, les virgules sont remplacées par du vide, ce qui fausse tous mes chiffres.

Quelqu'un serait-il me dire pourquoi ?

Merci d'avance !

[mfoxy]

Bonjour,

N'y aurait-il pas une incompatibilité de format de cellule la dessous.
La virgule pourrait-être considéré comme séparateur de millier et donc en fonction du format nombre excel disparaître ?

Bat,
MFoxy

[Runsh63]

Bonjour et merci pour ta réponse mfoxy,

Je suis sûr que oui, du coup, tous mes chiffres ayant 4 décimales, je vais faire disparaître le ".", puis appliquer une division par 10.000 à toutes mes données.

C'est pas super propre et un peu sioux, mais ça fera le taf

Encore merci pour ta réponse, bonne journée !

[Runsh63]

Finalement, j'ai opté pour cette solution, peut-être un poil plus "propre" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    .Range("G2:I" & LR).FormulaR1C1 = "=IF(RC[-3]="""","""",VALUE(SUBSTITUTE(RC[-3],""."","","")))"
    .Range("D2:F" & LR).Value = .Range("G2:I" & LR).Value
    .Range("G2:I" & LR).ClearContents

où LR est défini plus haut comme ma dernière ligne utile.