comment ne pas dépasser une valeur dans une textbox Résolu/Fermé

Question

Bonjour, 

Je cherche comment dans une textbox ne pas dépasser une valeur et de recommencer la saisi.

ex:  je ne veux pas dépasser une valeur supérieur à 59 par exemple que cela recommence la saisi dans une textbox.

si quelqu'un avais une proposition

Zoul67 · Answer

Bonjour,

Une idée : 
Private Sub TextBox1_Change()
    If Not IsNumeric(TextBox1.Value) Or TextBox1.Value > 59 Then
        TextBox1.Value = ""
    End If
End Sub

que tu peux boucler avec 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        'codes ASCII de 0 à 9
        Case 48 To 57
        Case Else
             MsgBox "Ne saisir que des chiffres !"
     End Select
End Sub

A+

Gyrus · Answer

Bonjour à tous,

Perso, j'utiliserais plutôt un ComboBox avec la propriété MatchRequired True.

A+

coupidon · Answer

Bonjour, vous avez répondu à ma question et cela fonctionne correctement, je rajoute que si je veux que des chiffres et aucune lettre lors de la saisie en modifiant le code de f894009 on peu utiliser ceci...

Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

' Empêche la saisi autre que numérique sur le cadre Heure

If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0

' Empêche la saisi autre que numérique et ne dépassant pas 59

    Select Case KeyAscii
        Case 48 To 57
            VTx = (Val(TextBox1) * 10) + (KeyAscii - 48)
            If VTx > 59 Then
                KeyAscii = 0
                MsgBox "Nombre " & VTx & " dépassant 59, recommencez saisie!!!!"
                TextBox1 = ""
            End If
            End Select
End Sub

f894009 · Answer

Re,

Ben, le code que j'ai mis a dispo traite deja des saisies chiffres et pas de lettres
Mais bon ...

Comment ne pas dépasser une valeur dans une textbox

4 réponses

Discussions similaires