Discussion :

[noviceavb]

Bonjour,


Je developpe une macro qui recupere depuis un fichier csv, des nombres qui sont stockes sous formes de texte dont les decimales sont separes par un point , j utilise cette ligne de code pour convertir mon point en virgule :

Code :

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

Selection.Replace what:=".", Replacement:=",", Lookat:=xlPart, searchorder:=xlByRows, MatchCase:=False, Searchformat:=False, ReplaceFormat:=False

une fois execute le point est bien remplace par une virgule mais le resultat est toujours en format texte et aligne sur la gauche au lieu d ' etre a droite et j ai sur chaucne des lignes l indicateur d erreur qui me propose de convertir en nombre, mais je souheterais effectuer la convertion via ma macro....

j ai essayer

Code :

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

1
2
columns("J:J").select
selection.numberformat="0,00"

mais sans succes !!!!

Merci d avance
Noviceavb

[pgz]

Bonjour.

Tu peux faire autrement. Pour chaque cellule

Code :

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

myCell.value = val(myCell.Value)

PGZ

[noviceavb]

Un grand merci PGZ