cathodique
XLDnaute Barbatruc
Bonsoir,
Avec ce que j'ai trouvé sur le forum et pu comprendre, j'ai fait ceci:
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,
Avec ce que j'ai trouvé sur le forum et pu comprendre, j'ai fait ceci:
Code:
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 Subles 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,