TEXTBOX NUMÉRIQUE (LE + SIMPLE) VERSION AMÉLIORÉ AVEC BACKSPACE QUI FONCTIONNE
cs_Nox
Messages postés
415
Date d'inscription
mardi 3 avril 2001
Statut
Membre
Dernière intervention
26 avril 2008
-
6 févr. 2002 à 03:56
imparator_42 Messages postés 20 Date d'inscription mardi 14 mars 2006 Statut Membre Dernière intervention 17 octobre 2012 - 30 mars 2008 à 00:17
imparator_42 Messages postés 20 Date d'inscription mardi 14 mars 2006 Statut Membre Dernière intervention 17 octobre 2012 - 30 mars 2008 à 00:17
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/2555-textbox-numerique-le-simple-version-ameliore-avec-backspace-qui-fonctionne
https://codes-sources.commentcamarche.net/source/2555-textbox-numerique-le-simple-version-ameliore-avec-backspace-qui-fonctionne
30 mars 2008 à 00:17
19 févr. 2008 à 16:32
Private Sub Text7_KeyPress(KeyAscii As Integer)
If (InStr("0123456789-", Chr(KeyAscii)) 0) And (KeyAscii <> 8) Then KeyAscii 0
End Sub
29 janv. 2007 à 15:54
il m'a boucoups servit
21 déc. 2005 à 09:07
Private Sub Limite_CMJ_BDL_KeyPress(KeyAscii As Integer)
separateur = Mid$(Format$(0, "0.0"), 2, 1)
If Chr(KeyAscii) "." And separateur <> "." Then KeyAscii Asc(separateur)
If Chr(KeyAscii) "," And separateur <> "," Then KeyAscii Asc(separateur)
'le point par une virgule
If KeyAscii = 8 Then 'Regarde si appuyer sur BACKSPACE
KeyAscii = 8 ' Si oui ... On efface
Else
If InStr("0123456789.,", Chr(KeyAscii)) = 0 Then 'contrôle de saisie
KeyAscii = 0 'caractère incorect, donc il ne s'ecrit pas
End If
End If
End Sub
15 sept. 2004 à 19:41
15 sept. 2004 à 19:18
Allez encore merci
5 oct. 2003 à 16:56
If KeyAscii 8 Then KeyAscii 8 Else: If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
19 mai 2003 à 21:11
Merci !!!
7 sept. 2002 à 15:23
lol
20 avril 2002 à 00:21
En effet :
- On peut limiter la saisie à un champs numérique
- On détecte le séparateur décimal windows ( ce n'est pas tjs la virgule !!)
- On peut limiter la saisie à un ensemble de caractère ( par ex "advfgGFR")
- Ecris dans un module, le code peur servir dans tous le projet
- Il n' y a pas d'API, pour ceux qui ne les aiment pas.
9 févr. 2002 à 14:55
a ok je savais pas que c'etait facultatif le 1 mais y a kan meme un truc qui me
dérange c'est que meme si c'etait facultatif il faudrait une virgule avant la liste "123
comme ca
if instr(,"123 etc...
enfin si ca marche c'est le principal
a+
7 févr. 2002 à 00:56
Mea Culpa
7 févr. 2002 à 00:55
if Chr(Keyascii)="." then Keyascii=Asc(",")
If InStr("0123456789.,", Chr(Keyascii))=0 Or Keyascii=9 then ' 9 est le code pr 'Del'
Keyascii=0
End If
6 févr. 2002 à 20:07
De plus, avec cette fonction, la touche "Del" est inactive...dommage
Merci!
6 févr. 2002 à 15:56
6 févr. 2002 à 15:52
6 févr. 2002 à 12:53
6 févr. 2002 à 12:12
Roswell117
6 févr. 2002 à 12:00
voila ma correction :
Private Sub text1_keyPress( KeyAscii As Integer)
If InStr(1,"0123456789", Chr$(KeyAscii)) = 0 Then 'contrôle de saisie
KeyAscii = 0 'caractère incorect, donc supression
End If
End Sub
t'as oublié le 1, devant qui définit l'endroit a partir d'où l'ordi va rechercher. A rajouter aussi si l'on veut autoriser les nombres decimals, un point (.) et une virgule (,) comme ca :
Private Sub text1_keyPress( KeyAscii As Integer)
If InStr(1,"0123456789.,", Chr$(KeyAscii)) = 0 Then 'contrôle de saisie
KeyAscii = 0 'caractère incorect, donc supression
End If
End Sub
voila
a+
6 févr. 2002 à 11:15
c un code k'a pas été testé apparemment car la déclaration est fausse, pr keyPress, il faut ke KeyAscii, t'as pas besoin index sinon, ca fait une erreur dès le début du programme
Désolé
6 févr. 2002 à 03:56
7/10