Message box

AKRAMI · 12 Janvier 2016

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

mapomme · 12 Janvier 2016

Re : Message box

Bonjour AKRAMI,

Essayez ce code:

VB:

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 · 12 Janvier 2016

Re : Message box

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

Message box

AKRAMI

XLDnaute Junior

mapomme

XLDnaute Barbatruc

AKRAMI

XLDnaute Junior

Discussions similaires

Message box

AKRAMI

XLDnaute Junior

mapomme

XLDnaute Barbatruc

AKRAMI

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency