Discussion :

[mulfycrowh]

Bonjour à tous et Joyeux Noël avec très peu de retard!

Je souhaite convertir une chaîne, comme par exemple "7.1250", en single.
J'ai donc écrit:

Dim X_Sng As Single
X_Sng = CSng("7.1250")
MsgBox(X_Sng)

J'obtiens 71250.

Je perds le point.
Pourquoi?
Et lorsque je tente de faire des calculs avec cette variable, ils sont évidemment faux.

Merci pour votre aide.

[Franc]

Salut, c'est probablement un problème de paramètres régionaux, tu peux remplacer le point par une virgule comme ceci:

Code :

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

X_Sng = CSng(Replace("7.1250", ".", ","))

[mulfycrowh]

Bonjour,

Merci pour la réponse.
Oui effectivement lorsque je mets une virgule, le résultat est cohérent.
Maintenant le problème est le suivant: la macro peut être utilisée dans différents pays.
Y aurait t'il un moyen de forcer par exemple le point ?

[Thumb down]

Bonjour,
Le problème des fonctions de conversion qui commence par C prennent en charge les paramètres régionaux.

La fonction Val, dans ton cas me paraît approprié car elle fonctionne côté VBA qui prend toujours le point comme séparateur.

Code :

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

1
2
debug.print val(replace("123,567",",","."))
Débug.print csng(replace(replace("1,1",",","."),".",Application.DecimalSeparator))

[mulfycrowh]

En fait je détecte le séparateur décimal dans les paramètres régionaux:

Application.International(xlDecimalSeparator)

et si c'est une virgule, je remplace le point par la virgule dans les procédures de saisie et de traitement.