Interdiction de caractères dans un textbox [Résolu]

[stefane26]

Bonjour
Je voudrais interdire tout autre caractère que les lettres, "entrée" et "retour" sur un textbox d'un formulaire.
J'ai créé le code suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub txt_Utilisateur_KeyDown(Keyascii As Integer, Shift As Integer)
Select Case Keyascii
    Case 97 To 122
    ' Caracteres alpha min
     Case 65 To 90
    'Caracteres alpha Maj
    Case 8
    'Retour Chariot
    Case 24
    'Retour arrière
    Case Else
    Keyascii = 0
End Select
End Sub

Cela fonctionne parfaitement sauf pour les chiffres alors que les codes 48 à 57 ne sont pas autorisés

Merci de votre aide

[marot_r]

As-tu vérifier quels codescorrespondent à tes chiffres ?

Pour le savoir :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub txt_Utilisateur_KeyDown(Keyascii As Integer, Shift As Integer)

debug.print KeyAscii

Select Case Keyascii
    Case 97 To 122
    ' Caracteres alpha min
     Case 65 To 90
    'Caracteres alpha Maj
    Case 8
    'Retour Chariot
    Case 24
    'Retour arrière
    Case Else
    Keyascii = 0
End Select
End Sub

et [ctrl][G] pour faire afficher la fenêtre de débugage immédiat.

A+

[stefane26]

Bonsoir et merci pour ta réponse
J'ai un autre soucis :
Mon code fonctionne normalement sur un clavier normal, il en est tout autrement avec un clavier de portable sans pavé numérique.
En effet, pour exemple la touche 1/& (au dessus du A) prend le code ascii 49 quelque soit la position de la touche capslock et si on appuie sur shitf 1 je retourne les codes 16 puis 49.
J'aimerais autoriser les chiffres mais pas les caractères spéciaux or sur les touches en haut du clavier les codes ascii sont les mêmes quelque soit le caractère affiché :
& = ascii 49
1 = ascii 49 (associé au 16)

Merci de votre aide

[argyronet]

Bonjour,

C'est l'événement KeyPress qu'il faut utiliser.
de plus tu peux combiner.

Code :

1
2
3
4
5
6
7
Private Sub txt_Utilsateur_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case 8, 39, 45, 65 To 90, 97 To 122
        Case Else
            KeyAscii = 0
    End Select
End Sub

Argy

[stefane26]

Merci argyronet
Celà fonctionne parfaitement, c'était en effet l'évènement qui fallait modifier

[marot_r]

Essaye avec KeyPress au lieu de KeyDown qui te donne la touche qui est appuyée pas le caractère à laquelle elle correspond.

Code :

1
2
3
4
5
Private Sub ShipRegion_KeyPress(KeyAscii As Integer)
    if caractereInvalide then
        KeyAscii = 0
    end if
End Sub

A+