Message box

[AKRAMI]

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

Private Sub TextBox1_Change()
If TextBox1.Text > 50 Then
MsgBox " La valeur dépasse 50 "
End If
End Sub

 

[mapomme]

Re : Message box

Bonjour AKRAMI,

Essayez ce code:

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

 

[AKRAMI]

Re : Message box

Bonjour mapomme
merci beaucoup
c'est bien resolu grace a vous merci
amicalement
AKRAMI