Comment ne pas dépasser une valeur dans une textbox
Résolu
coupidon
Messages postés
98
Statut
Membre
-
f894009 Messages postés 17416 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17416 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je cherche comment dans une textbox ne pas dépasser une valeur et de recommencer la saisi.
ex: je ne veux pas dépasser une valeur supérieur à 59 par exemple que cela recommence la saisi dans une textbox.
si quelqu'un avais une proposition
Je cherche comment dans une textbox ne pas dépasser une valeur et de recommencer la saisi.
ex: je ne veux pas dépasser une valeur supérieur à 59 par exemple que cela recommence la saisi dans une textbox.
si quelqu'un avais une proposition
A voir également:
- Comment ne pas dépasser une valeur dans une textbox
- Excel ne pas afficher #valeur ✓ - Forum Excel
- Ne pas afficher #VALEUR - Forum Programmation
- Cette valeur ne correspond pas aux restrictions de validation des données pour cette cellule ✓ - Forum Excel
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
- Valeur relative et absolue ✓ - Forum Webmastering
4 réponses
Bonjour,
Une idée :
que tu peux boucler avec
A+
Une idée :
Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1.Value) Or TextBox1.Value > 59 Then
TextBox1.Value = ""
End If
End Sub
que tu peux boucler avec
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
'codes ASCII de 0 à 9
Case 48 To 57
Case Else
MsgBox "Ne saisir que des chiffres !"
End Select
End Sub
A+
Bonjour, vous avez répondu à ma question et cela fonctionne correctement, je rajoute que si je veux que des chiffres et aucune lettre lors de la saisie en modifiant le code de f894009 on peu utiliser ceci...
Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
' Empêche la saisi autre que numérique sur le cadre Heure
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
' Empêche la saisi autre que numérique et ne dépassant pas 59
Select Case KeyAscii
Case 48 To 57
VTx = (Val(TextBox1) * 10) + (KeyAscii - 48)
If VTx > 59 Then
KeyAscii = 0
MsgBox "Nombre " & VTx & " dépassant 59, recommencez saisie!!!!"
TextBox1 = ""
End If
End Select
End Sub
Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
' Empêche la saisi autre que numérique sur le cadre Heure
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
' Empêche la saisi autre que numérique et ne dépassant pas 59
Select Case KeyAscii
Case 48 To 57
VTx = (Val(TextBox1) * 10) + (KeyAscii - 48)
If VTx > 59 Then
KeyAscii = 0
MsgBox "Nombre " & VTx & " dépassant 59, recommencez saisie!!!!"
TextBox1 = ""
End If
End Select
End Sub
Mais perso, j'utiliserai plutot
Pour vérifier à la sortie de la textbox =)
Sur un seul evenement
'control entree Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 48 To 57 VTx = (Val(TextBox1) * 10) + (KeyAscii - 48) If VTx > 59 Then KeyAscii = 0 MsgBox "Nombre " & VTx & " depassant 59, recommencez saisie!!!!" TextBox1 = "" End If Case Else KeyAscii = 0 MsgBox "Entree que des chiffres(0 a 9) !!!!" End Select End Sub