EXCEL Valeur maxi en saisie sur cellule USERFORM Résolu/Fermé

Question

Bonjour, 

Je débute en USERFORM

Pour l'utilisateur, j'ai crée cette ligne le limitant en valeur numérique à 3 chiffres, sans virgule et sans point.
mais je n'arrive pas à faire en sorte qu'il ne puisse pas dépasser 100

j'ai ce code, mais çà ne fonctionne pas sur la valeur Max. 
L'idéal étant que s'il tape par exemple 105, on puisse avoir le message d'erreur
et que la cellule soit éffacée. Pour nouvelle saisie. 

Private Sub quotité_1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)If Len(Me.quotité_1) > 2 Then    Me.quotité_1 = Left(Me.quotité_1, 2)  End If    If Val(quotité_1.Text) > 100 ThenMsgBox "La quotité maximum est de 100, veuillez revoir."   End IfIf InStr("1234567890", Chr(KeyAscii)) = 0 Then KeyAscii = 0: BeepEnd Sub

Merci d'avance de votre aide. 



Configuration: Windows 7 / Internet Explorer 9.0

Le Pingou · Answer

Bonjour,
Au passage, réaliser un pas à pas sur la macro pour voir ce qui se passe au niveau des conditions (If,,,).

foo · Answer

Bonjour

je voie un truc comme ca

Private Sub textbox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   Select Case KeyAscii
      Case 48 To 57
          KeyAscii = KeyAscii
      Case Else
         KeyAscii = 0
    End Select
End Sub

Private Sub TextBox2_Change()
   If Val(TextBox2.Value) > 100 Then
      MsgBox "La quotité maximum est de 100, veuillez revoir."
      TextBox2.Value = ""
   End If
End Sub

A+

Maurice

EXCEL Valeur maxi en saisie sur cellule USERFORM

2 réponses

Discussions similaires