Limiter Textbox à 4 chiffres pour positifs que négatifs (- au debut uniquement)

[cathodique]

Bonsoir,

Avec ce que j'ai trouvé sur le forum et pu comprendre, j'ai fait ceci:

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)
TextBox1.MaxLength = 4
End Sub

Je voudrais qu'on ne puisse insérer que 4 chiffres dans la textbox (nombre positif ou négatif),
les positifs sont saisis sans aucun signe. j'ai limité la saisie à 4 caractères plus qu'il y a le signe moins pour les nombres négatifs je n'ai que 3 chiffres.
Le signe "-" me pose aussi problème, on peut l'insérer une seconde fois (plutôt 4 fois, si on tape 4x-).
Il faudrait que le signe "-" ne soit accepté qu'en début de chaine.
Quand au nombre de chiffres, il sera de 4 maximum que ce soit pour les nombres positifs que pour les négatifs.
ex: 1996 ou -1996

En vous remerciant par avance.

Cordialement,

 

[cathodique]

Re : Limiter Textbox à 4 chiffres pour positifs que négatifs (- au debut uniquement)

Re, et bonjour à Job75

C'est très gentil de votre part.

Je vous remercie beaucoup, trop sympa. Je ne m'attendais pas à autant d'intérêt à mon post.

Merciiiiiiiiiiiiiiiiiiiiii!

Cordialement,