Zone de text vb6

bd= Replace(bd, ",", ".")
bd = Val(bd)

si bd="&3", en final tu auras bd =3 (le & doit être interprété comme le caractère de concaténation)

Merci thev

le faite de remplacer la virgule avec le point ca résolu le probleme , mais j'ai trouver d'autre probleme:

bon voici ce que je veux faire:

j'ai des zones de text sur une interface vb6, je saisie mes données mais j'ai des condition:
comme par exemple, "Hmin" doit etre compris entre 0,8 et 40m, bien sur la valuer doit etre numérique (que des nombre) donc je dois mettre des condition sur "Hmin" :

Private Sub Hmin_Validate(Cancel As Boolean)
If Not IsNumeric(Hmin) Then
MSG = MsgBox("veuillez saisir une valeur numérique", vbOKOnly + vbExclamation, "Attention")
Hmin = ""
Else
If Val(Hmin.Text) * 1000 < 799 Then
MSG = MsgBox("Impossible! profondeur minimal est de 0,8m ", vbOKOnly + vbExclamation, "Attention")
Hmin = ""
Else
If Val(Hmin.Text) > 41 Then
MSG = MsgBox("Impossible! profondeur max 40m ", vbOKOnly + vbExclamation, "Attention")
Hmin = ""
End If
End If
End If
End Sub

donc si je tape 0,9 la condition de "Hmin* 1000<799" ne passe pas il considere 0,9 comme 0, j'ai essayer de remplacer "," par "." mais je tombe sur la premier message d'erreur Hmin n'est pas une valeur numérique.

que dois je faire, merci

If CDbl(Hmin.Text) * 1000 < 799 Then

Merci thev, ca marche bien mnt

reste seulement le point d'interdire à l'utilisateur de tapper un chiffre avec &

je cherche à faire une recherche sur la chaine de caractere et si la chaine contient "&" je demande à l'utilisateur de corriger.

est ce qu'il ya une fonction qui peu faire l'affaire.


Merci

If Hmin.Text like "*&*" Then