Discussion :

[Invité]

Bonjour à tous,

je voudrais savoir si c'est possible de bloquer la saisie de certains caractères dans une zone de texte de formulaire (ou même de n'autoriser que certains).

MERCI BIEN

[loufab]

Bonjour,

Voir l'événement Sur touche appuyer.

Eventuellement tu peux te servir de l'application gratuite Chasseur d'événements présent sur ma page perso.

Cordialement,

[Invité]

je suis désolé mais je ne vois pas où je peut trouver ce que je cherche dans ton application ni comment faire avec sur appuyer touche...

[cafeine]

Hello,

Ok, voilà le film ...

ouvre ton formulaire en mode conception.
sélectionne le textbox
affiche les propriétés
onglet événements
dans "sur touche activée" clic sur le bouton "..."
choisi le générateur de code ...

Pour empêcher la saisie d'un "a" on fait comme ça ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub txtInput_KeyPress(KeyAscii As Integer)
 
Select Case KeyAscii
    Case Asc("a")
        KeyAscii = 0
 
    Case Else
        ' ne rien faire
 
End Select
 
End Sub

je suis désolé mais je ne vois pas où je peut trouver ce que je cherche dans ton application ni comment faire avec sur appuyer touche...

[Invité]

et l'inverse n'est pas possible (genre autoriser que ces 2 ou 3 caractères)? sinon tant pis.

Merci beaucoup!

[cafeine]

Si bien sûr, il suffit de le gérer dans le Select Case ...
à toi de jouer maintenant ...

et l'inverse n'est pas possible (genre autoriser que ces 2 ou 3 caractères)? sinon tant pis.

Merci beaucoup!

[Invité]

il faudrait que je mette ce que je veux autoriser dans le else et faire en sorte de passer directement du premier case au else si j'a bien compris. Le problème c'est que je n'y arrive pas. si quelqu'un sait comment je peut faire, je suis preneur

[argyronet]

Bonjour,

Cafeine t'as maché le travail !
Tu n'as plus qu' adapter...
Si tu n'arrives pas avec les lettres, passe en code ASCII direct.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub txtInput_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
    Case 65, 66, 67, 68, 69, 45
        'On autorise A, B, C, D, E et le -
    Case Else
       'On autorise rien d'autre
       KeyAscii = 0
End Select
End Sub

Argy