cathodique
XLDnaute Barbatruc
Bonsoir,
Dans une textbox j'impose un format de saisie (1 Lettre + 9 Chiffres). Dans le cas où cette règle n'est pas remplit, je voudrai avoir un message et que la textbox garde le focus.
J'ai fait ceci mais la textbox11 ne reprend pas le focus, il passe à la textbox suivante (la 12).
En vous remerciant par avance.
Dans une textbox j'impose un format de saisie (1 Lettre + 9 Chiffres). Dans le cas où cette règle n'est pas remplit, je voudrai avoir un message et que la textbox garde le focus.
Code:
Private Sub TextBox11_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(Me.TextBox11.Value) < 10 Then MsgBox "code erroné": TextBox11.SetFocus
End Sub
Private Sub TextBox11_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case Len(Me.TextBox11.Value)
Case 0 '1er caractere*
If (KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or KeyAscii > 122) Then KeyAscii = 8: beep
Case 1 To 9 'cas 9 caractères
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 8: beep
End Select
End Sub
En vous remerciant par avance.