Impossible d'utiliser la touche retour chariot

Signaler
Messages postés
106
Date d'inscription
mardi 4 mars 2008
Statut
Membre
Dernière intervention
2 mai 2012
-
Messages postés
584
Date d'inscription
jeudi 28 décembre 2006
Statut
Membre
Dernière intervention
29 avril 2010
-
Bonjour,
mon problème est le suivant j'ai tapé le code ci dessous dans l'evenement keypress d'un textbox dans le but de n'y entrer que des chiffres :
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0
mais cependant la touche retour arriere ne marche pas, donc impossible de supprimer les chiffres. Comment faire pour y remedier ? et/ou s'il existe un autre moyen de le faire merci d'avance de me le passer

4 réponses

Messages postés
14813
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
25 juillet 2021
156
Bonjour

Bin, il faut faire une exception, tu mets un MsgBox à chaque fois tu rejette la touche et tu regarde le conde ASCII.

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1
Mon site
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
76
Salut
Suffit d'agrandir le test.
Le retour arrière est le code ascii 8
Il faut inverser ton test pour les chiffres 0 à 9
   If Not (  (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) _
           Or KeyAscii = 8) Then
Tu peux aussi utiliser un Select Case, plus pratique
   Select Case KeyAscii
      Case 48 to 57   ' Chiifres de 0 à 9
         ' On ne fait rien, c'est autorisé
      Case 8   ' Retour arrière
         ' On ne fait rien, c'est autorisé
      Case Else   ' Tout le reste est interdit
         KeyAscii = 0
   End Select

Je te dis ça parce que dans une heure, tu reviendras avec le même problème pour le point ou la virgule.
Ce sera plus pratique avec un Select Case
Inspire toi aussi des multiples sources qui parlent de "saisie numérique" ou de "TextBox numérique" (dans le moteur de recherche)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
salut,

regarde le snippet de EBArtSoft :
http://www.codyx.org/snippet_textbox-numerique-seulement_53.aspx

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
Messages postés
584
Date d'inscription
jeudi 28 décembre 2006
Statut
Membre
Dernière intervention
29 avril 2010
1
Tres utilise aussi KeyAscii = 13 pour la touche enter ;)

<hr size="2" width="100%" />  zen69 aka Ortho Le Profett
  [site web]