Discussion :

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[PMO2017]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[parmi]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox1.MaxLength = 4

[Invité]

Bonsoir,

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

Bonne Soirée.

Cordialement,