Bonjour tout le monde
Svp comment faire pour ajouter une condition a ce message box
dans TextBox1 je veux que les chiffres tappés par l'utilisateur seront des chiffres pas des lettres ..et que la valeur ne depasse pas 50 ..j'ai ce code pour la partie de la valeur ne depasse pas 50 mais svp comment ajouter la partie des chiffres pas des lettres ou symboles
merci d'avance
Amicalement
AKRAMI
Code:
Private Sub TextBox1_Change()
If TextBox1.Text > 50 Then
MsgBox " La valeur dépasse 50 "
End If
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub TextBox1_Change()
If Val(TextBox1) > 50 Then MsgBox " La valeur dépasse 50 "
End Sub