Conversion string avec . en single (ex:"6.7")

Question

Je désire convertir en single un string contenant des valeurs numériques et un point "7.2" , "8.22", "9"
Csng ne marche qu'avec "9"...
Merci
zapping

econs · Answer

As-tu essayé avec Val() ?
Mais la donnée de sortie sera un Double.

Manu

Renfield · Answer

la virgule est à favoriser ici....

csng ( replace("9.2" , "." , ",") )

Amusez-vous !  ;) 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS

cs_CanisLupus · Answer

Ton problème vient sans doute des options régionales donc, voilà un code qui devrait marcher, quelquesoit les options :

Private Sub Form_Load()
Dim variable As String
variable = "9" ' enfin ta valeur

' on teste les options régionales du séparateur décimal
If IsNumeric("0.1") Then variable = Replace(variable, ",", ".")
' on teste ensuite si en plus, il n'y aurait pas un car non numérique
If IsNumeric(variable) Then
MsgBox CSng(variable)
Else
MsgBox "Variable non numérique"
End If
End Sub


Teste là comme ça et si ça te va, adapte-là et tu peux en faire une fonction.

Cordialement, CanisLupus

Conversion string avec . en single (ex:"6.7")

3 réponses

Discussions similaires