Discussion :

[Renardo]

bonjour a tous
je voudrais savoir si quelqu'un a une solution pour qu'il n'y est que les touches utile qui s'inscrive dans un champ
voila j'ai un groupe de de choix avec 4 chiffre 1-2-3-4 a chaque pression sur une de ses touches sa declanche une impression d'etat mais si par erreur j'appui sur 5 ou autre sa provoque une erreur se qui est normal
s'est pour sa que je voudrais savoir si il ni a pas moyen de rendre les autre touches inactive
merci pour votre aide qui m'est tres utile

[Faw]

Je ne comprends pas, tes options vont de 1 à 4, (c'est bien un groupe d'options que tu as?), d'où vient le 5?

[Renardo]

Non se n'est pas un pas un groupe d'option je vais essayer d'etre plus claire
j'ai un formulaire ou je selectione tous un tas de parametre notament le groupe de choix, dans se groupe de choix je vais avoir
exemple
1 pour Premier
2 pour Rustique
3 pour nature
4 pour Declasse
ensuite dans se formulaire j'ai un sous form avec un champ (N°Choix),a chaque appui sur une des touches de 1 a 4 dans se champ cela me lance l'impession d'une etiquette, mais si on appui sur le 5 ou le 6 ou autre
cela provoque une erreur puisque le N°choix 5 et 6 n'existe pas.
de la ma question de savoir si il est possible d'avoir que les touche de 1 a 4 active
(je ne sais pas si cela est possible)

[User]

Donc au niveau de ce champs tu as du code pour lancer l'impression,

tu n'as qu'a faire un test sur la valeur rentrée,

si Me!Champ>4 alors
message "valeur incorrect !"


ou alors agit sur:

Code :

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

1
2
3
4
5
Private Sub Champ_KeyDown(KeyCode As Integer, Shift As Integer)
 
   if Keycode>.. then Keycode=0
 
End Sub

@+

[Faw]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
select case MonChoix
case 1
traitement pour cette valeur
case 2
traitement pour cette valeur
case 3
traitement pour cette valeur
case 4
traitement pour cette valeur
case else
Msgbox "Erreur!!!"
end select

[Renardo]

bonjour
je cherche a eviter un message d'erreur, se que je voudrais s'est que si on appui sur une touche autre que 1-2-3-4 dans le champ N°choix,
exemple: Si j'appui sur 5
le 5 s'affiche dans mon champ N°choix, et provoque l'erreur N°Choix non valide
Se que je voudrais
le 5 ne s'affiche pas , pas de message d'erreur,et attend que je rentre un N°Choix valide

Merci pour l'aide que vous m'apportez

[random]

Code :

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

1
2
3
4
5
 
Private Sub Texte0_KeyPress(KeyAscii As Integer)
If KeyAscii < 49 Or KeyAscii > 52 Then KeyAscii = 8
 
End Sub

[Renardo]

ta solution me convient mieu
mais etant que mon peut N°Choix peut varier suivant le groupe que je choisi
Exemple je peut avoir les touche
1-2-3-4
1-3-4
1-2-3-4-5 ect....
si tu as une astuce Merci pour ton aide

[Renardo]

Code :

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

1
2
3
4
Private Sub Texte2_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 51 Then KeyAscii = 8
Beep
End Sub

Ce code me donne acces au touche 1-2-3-4
mais je voudrais aussi interdir la touche 3
y a t'il une solution j'ai chercher mais je la trouve pas

[Mahefasoa]

Salut,
1 -> Keyascii 48
2 -> Keyascii 49
3 -> Keyascii 50
4 -> Keyascii 51

A toi de placer tes conditions afin de limiter les touches acceptées.

Code :

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

1
2
 
If Keyascci<48 and keyascii=50 and keyascii>51 then ...

[User]

Slt,

c'est bizarre moi j'ai

1-> KeyAscii 49

...

Code :

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

1
2
3
4
5
Private Sub Texte2_KeyPress(KeyAscii As Integer)
If (KeyAscii < 49) Or (KeyAscii > 53) Then KeyAscii = 8
Beep
 
End Sub

@+

[Mahefasoa]

Oops...
Je confirme, c'est 49 pour 1!

[Renardo]

Mon code

Code :

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

1
2
3
Private Sub Texte2_KeyPress(KeyAscii As Integer)
If Keyascci < 49 And KeyAscii = 51 Or KeyAscii > 52 Then KeyAscii = 8
End Sub

comment se fait il que la touche 0 soit active

[SfJ5Rpw8]

une petite relecture de ton code s'impose !

Code :

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

if Keyascci < 49 And KeyAscii = 51 ...

comment ve tu que KeyAscii soit inférieur à 49 ET égal à 51..?

ensuite c'est KeyAscii et pas Keyascci

[Renardo]

Code :

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

If KeyAscii = 48 OR KeyAscii = 51 Or KeyAscii > 52 Then KeyAscii = 8

Comme ça sa marche mieu
Merci a tous pour l'aide que vous m'apportez