Obliger la saisie de certaines valeurs dans une TextBox

Pierrot93 à dit:

Bonjour,

regarde peut être ceci, espérant que cela puisse te faire avancer :

Code:

Option Explicit
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not TextBox1 Like "[A-I]##" Or Right(TextBox1, 2) > 12 Then Cancel = True
End Sub

bonne journée
@+

Cliquez pour agrandir...

Pierrot93 à dit:

Re,

rajoute un test avec une borne inférieure...

Code:

Option Explicit
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not TextBox1 Like "[A-I]##" Or Right(TextBox1, 2) < 1 Or Right(TextBox1, 2) > 12 Then Cancel = True
End Sub

Cliquez pour agrandir...