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,