Valeur entière et TextBoxRésolu

Question

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")


Else: TxtTest.Text = Niveau
End If

Pourriez m'aider ?? Merci d'avance

cs_MPi · Accepted Answer

Et pourquoi ne pas tout simplement valider ... (?)

If Not IsNumeric(Text1) or val(Text1)<1 or Val(text1) > 20 then 
Msgbox "J'ai dit des chiffres de 1 à 20 ...!"
text1=""
text1.setfocus
exit sub
end if

MPi

jrivet · Answer

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

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] @+: Ju£i?n Pensez: Réponse acceptée

cs_kossuth · Answer

Merci ! je vais voir ce que je peux faire avec. 
Mais si qq'un à d'autre idée je reste preneur

jmfmarques · Answer

ce que t'a donné Jrivet ùe semble bon, non ?

Pour Julien : Bonsoir,

Quid si je ne frappe rien mais sélectionne du texte, le met dans le prese-papier et le colle ? ...badaboum....

alors :

Private Sub Text1_Click()
  Clipboard.Clear
End Sub

et me voilà à l'abri ...

cs_kossuth · Answer

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

Bonne journée à tous

cs_kossuth · Answer

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

Kossuth

jrivet · Answer

Salut,
Sans rancune aucune... en revanche appuie sur réponse acceptée sur le post qui t'a aidé (celui que tu as choisi)

@+: Ju£i?n
Pensez: Réponse acceptée

Valeur entière et TextBox

7 réponses

Votre réponse

Discussions similaires