Bonjour
je debute en vb et je viens de faire un formulaire avec une textbox
c'est ok par contre je veux controler la saisie de la textbox à une saisie numerique sur 3 chiffres (ex : 440 )
Merci d'avance
Private Sub TextBox1_Change()
If (Len(TextBox1.Value) > 3) Then
MsgBox "Ne doit pas excéder 999"
Else
If (Val(TextBox1.Value) > -1) And (Val(TextBox1.Value) < 1000) Then
MsgBox "Valeur acceptée"
Else
MsgBox "Le nombre doit être comprit entre 0 et 999"
End If
End If
End Sub
'
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii <> "13") Then
If (Len(TextBox1.Value) > 3) Then
MsgBox "Le nombre de caractère est invalide"
Else
If ((KeyAscii >= 0) And (KeyAscii <= 9)) Then
If (Val(TextBox1.Value) > -1) And (Val(TextBox1.Value) < 1000) Then
MsgBox "Valeur acceptée"
Else
MsgBox "Le nombre doit être comprit entre 0 et 999"
End If
End If
End If
End If
End Sub
Private Sub tbx_Saisie_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim Longueur As Long
If (KeyAscii <> "13") Then
If ((Chr(KeyAscii) <= "9") And (Chr(KeyAscii) >= "0")) Then
If (Len(tbx_Saisie.Value) > 3) Then
MsgBox "Le nombre de chiffre est invalide"
Else
If ((Chr(KeyAscii) >= 0) And (Chr(KeyAscii) <= 9)) Then
If (Val(tbx_Saisie.Value) > -1) And (Val(tbx_Saisie.Value) < 1000) Then
'MsgBox "Valeur acceptée"
DoEvents
Else
MsgBox "Le nombre doit être comprit entre 0 et 999"
End If
End If
End If
Else
KeyAscii = 0
End If
End If
End Sub
'
Vous n'aimez pas le lifting de Facebook ? Le site Mashable propose cinq étapes pour revenir à l'ancienne présentation du réseau social.
