Problème avec la fonction CSng

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.

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

Code:

---

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

---

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 ?

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:

---

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

---

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.