tester un champ de texte

bonjour

J'ai besoins de tester un champ de texte qui ne doit pas prendre une valeur alphabétique (string).

Si l'utilisateur rentre une valeur "string" je renvois un message d'erreur...

J'ai essayer la syntaxe suivante mais ça ne fonctionne pas, je dois mal m'y prendre...

If Text2 = "string" Then
rep = MsgBox("Mauvaise réponse, veuillez entrer un autre choix", vbOKOnly, "Résultat de la question N° 4")

Pouvez-vous m'aider ?

Merci, Ludo

Essaie ceci:
If isNumeric(Text2.text) then
Else
MsgBox("Mauvaise réponse, veuillez entrer un autre choix", vbOKOnly, "Résultat de la question N° 4")
End if
Il doit y avoir d'autres solutions mais c'est la seule que je connais.

Dans la procedure Keypress de ta case texte tape le code :

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End Sub

Si tu veux autoriser le retour chariot son code ascii est 8, la virgule 44 et le point 46


Grrrrrrrrrrr

Bonjour,

Ca ne fonctionne pas... voici le code, il y a peut êre une erreur de ma part...

Private Sub BrRep2_Click()
Dim rep ' réponse question 4
If Text2 >= "70" Then
rep = MsgBox("Bonne réponse, la ville de Compiègne se situe à 80 kms de Paris", vbOKOnly, "Résultat de la question N° 4")
Else
If Text2 <= "80" Then
rep = MsgBox("Bonne réponse, la ville de Compiègne se situe à 80 kms de Paris", vbOKOnly, "Résultat de la question N° 4")
Else
If IsNumeric(Text2.Text) Then
rep = MsgBox("Mauvaise réponse, veuillez entrer uniquement des valeurs numérique à l'aide du pavé numérique du clavier.", vbOKOnly, "Résultat de la question N° 4")
End If

End If
End If
End Sub

Merci pour votre aide :-) ludo.

Private Sub BrRep2_Click() dim reponse as integer reponse=val(Text2.text) if reponse>=70 and reponse<=80 then MsgBox "Bonne réponse, la ville de Compiègne se situe à 80 kms de Paris", vbOKOnly, "Résultat de la question N° 4" else msgbox "Mauvaise reponse",vbOkOnly,"Resultat de la question 4" end if End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End Sub

L'utilisateur ne pourra saisir que des valeurs numériques. Ensuite tu converti le resultat en entier pour pouvoir faire des comparaisons.
Si la case texte doit pouvoir contenir du texte alors n utilise pas la procedure keypress et utilise le code

Private Sub BrRep2_Click() dim reponse as integer if isNumeric(Text2.text) then reponse=val(Text2.text) if reponse>=70 and reponse<=80 then MsgBox "Bonne réponse, la ville de Compiègne se situe à 80 kms de Paris", vbOKOnly, "Résultat de la question N° 4" else msgbox "Mauvaise reponse",vbOkOnly,"Resultat de la question 4" end if else MsgBox "Mauvaise réponse, veuillez entrer uniquement des valeurs numérique à l'aide du pavé numérique du clavier.", vbOKOnly, "Résultat de la question N° 4" End Sub

Grrrrrrrrrrr

Merci pour ton aide Grrrrrrrrrrr

je vais essayer tout ça...

Bonne soirée
Ludo.