cs_kossuth
Messages postés17Date d'inscriptionlundi 5 mars 2007StatutMembreDernière intervention18 mars 2007
-
6 mars 2007 à 17:14
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 2012
-
7 mars 2007 à 15:40
Salut,
Voilà, je débute en VB et je voudrais avoir une info.
Je souhaite saisir dans un TextBox une Valeur uniquement entière (pas de lettre, pas de décimale..) et ensuite valider la valeur avec un bouton qui vérifiera à son tour si le résultat est compris entre 1 et 20.
J'ai déjà réalisé le bouton mais je n'arrive pas à faire en sorte de ne rentrer qu'une valeur numérique entière
Voici ce que j'ai déjà fait
Private Sub CmdNiveau_Click()
Niveau = TxtNiveau.Text
If Val(Niveau) > 20 Then
MsgBox ("réessayer !!! Entrez une valeur comprise entre 1 et 20")
ElseIf Val(Niveau) < 1 Then
MsgBox ("réessayer !!! Entrez une valeur comprise entre 1 et 20")
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 6 mars 2007 à 17:22
Salut,
Tiens essaies ceci, en l'adaptant cela devrait répondre à ton besoin
Private Sub Text1_KeyPress(KeyAscii As Integer)
'Traite l'appui sur Entrer comme
'Validation
If KeyAscii = vbKeyReturn Then
'appelle la verification des valeur
Call CheckValue(CInt(Text1.Text))
ElseIf KeyAscii <> vbKeyBack Then
'Si ce n'est pas un chiffre annule la frappe
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End If
End Sub<hr />
Private Sub CheckValue(ByVal Valeur As Integer)
If Valeur > 20 Or Valeur < 1 Then Call MsgBox("Entrer une valeur entre 1 et 20")
End Sub , ----
[code.aspx?ID=41455 By Renfield]
cs_kossuth
Messages postés17Date d'inscriptionlundi 5 mars 2007StatutMembreDernière intervention18 mars 2007 7 mars 2007 à 15:07
Merci à vous!
J'avance doucement. mais je reste avec le problème d'insertion d'un nombre entier. Quand je tape des lettres et que je clique mon bouton je reçoie toujours un message d'erreur
cs_kossuth
Messages postés17Date d'inscriptionlundi 5 mars 2007StatutMembreDernière intervention18 mars 2007 7 mars 2007 à 15:22
Me voilà de retour
J'ai réussi à faire ce que je voulais. Jrivet, pas de rancune j'espère j'ai préféré la méthode de MPi, qui était plus simple pour moi.
Grand merci quand même à vous deux de m'avoir donner un coup de main