TEXTBOX NUMÉRIQUE (LE + SIMPLE) VERSION AMÉLIORÉ AVEC BACKSPACE QUI FONCTIONNE

Commentaire de roswell117 le 06/02/2002 11:15:14

c pas du gros code et en plus c FAUX
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é

Commentaire de roswell117 le 06/02/2002 12:12:44

Stephane, pr la fonction Instr(), si tu veut commencer du début, tu peut ne rien mettre, le 1 est sous-entendu.

Roswell117

Commentaire de Arkko le 06/02/2002 15:52:29

Désolé j'Avais oublier de corriger cela ... j'ai fait un copiercoller d'une partie de mon prog qui se sert des index ... désolé je vais le corriger ce soir

Commentaire de jbosss le 06/02/2002 20:07:04

comment pourrait-on faire pour  que, si l'utilisateur tape "." (un point), le prog le remplace par une virgule ?
De plus, avec cette fonction, la touche "Del" est inactive...dommage
Merci!

Commentaire de roswell117 le 07/02/2002 00:56:29

heu, dsl, ds le message faut lire "Keyascii<>9" et non pas "Keyascii=9"

Mea Culpa

Commentaire de GMI le 20/04/2002 00:21:27

Je vous invite à regarder l'article http://www.vbfrance.com/article.asp?Val=640
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.

Commentaire de Keman le 19/05/2003 21:11:54

SUPER!!!! j'avais vraiment besoin d'un vbut de code comme celui ci!

Merci !!!

Commentaire de skyzofrenzz le 15/09/2004 19:18:47

Exelent !!! 10/10 ca marche tres bien !!! moi c la virgule que je remplace par un point LOL....

Allez encore merci

Commentaire de Talere le 21/12/2005 09:07:37

Je peux te suggérer cette solution qui, en plus permet de gérer le séparateur décimale :

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

Commentaire de berreqia le 19/02/2008 16:32:16

Une correction du code de ROSEWLL mais si c'est un peu trop tard lol :)

Private Sub Text7_KeyPress(KeyAscii As Integer)
       If (InStr("0123456789-", Chr(KeyAscii)) = 0) And (KeyAscii <> 8) Then KeyAscii = 0
End Sub