Limiter Textbox à 4 chiffres

Bonsoir,

En parcourant les différentes discussions concernant la saisie de numériques dans une TextBox, j'ai trouvé ce qu'il me fallait.

Code:

---

1 2 3 4 5 6

Function KeyOK(Code) KeyOK = IIf(InStr("1234567890", Chr(Code)), Code, 0): If KeyOK = 0 Then Beep End Function Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) KeyAscii = KeyOK(KeyAscii) End Sub

---

Mais je voudrai compléter ce code pour limiter la saisie à 4 chiffres seulement.

Je vous remercie pour votre précieuse aide.

Cordialement,

Bonjour,

Ajoutez le code suivant dans la fenêtre de code du UserForm

Code:

---

1 2 3 4 5

Private Sub TextBox1_Change() If Len(TextBox1) > 4 Then TextBox1 = Mid(TextBox1, 1, 4) '4 caractères maximum End If End Sub

---

Tu peux aussi modifier la propriété MaxLength de ton textbox, manuellement ou par code

Code:

---

TextBox1.MaxLength = 4

---

Bonsoir,

Messieurs, je vous remercie beaucoup. J'ai essayé vos solutions et elles fonctionnement très bien.:ccoo

Bonne Soirée.

Cordialement,