Discussion :

[christophe31]

Bonjour,

Voilà, j'ai un bouton sur un formulaire.
Est ce qu'il est possible d'activé le bouton toto lorsque l'on appuie sur la touche Entrée ?

Merci par avance

[Oleff]

Bonjour,

Interresse-toi à l'évènement "sur touche activée" (KeyPress(KeyAscii As Integer))

[LE VIEUX]

bonjour,
lorsque le bouton a le focus, l'appui sur la touche entrée correspond normalement à l'évènement sur clic.

[christophe31]

Salut, merci pour les réponses je vais voir ça.
Pour l'instant voici ce que j'ai trouvé pour la touche Entrée.
Dans Option Access/Avancé (voir pièce-jointe)

[christophe31]

Salut LE VIEUX, c'est vrai que si le focus est sur le bouton et que l'on appuie sur Entrée cela fontionne.
Cependant, dans mon formulaire, l'utilisateur doit insérer des données dans des textbox puis qu'il appuie sur la touche Entrée.
Peut être que si le textbox est modifié je créé un evenement getfocus sur le bouton. C'est une solution, mais il faudrait appliqué sur tous les textbox c'est peut être un peu lourd.

[Oleff]

Attention si tu changes le focus sur modification d'un champ, tu risque de créer des problèmes de continuité de saisie.

Alors que ton but si j'ai bien compris et de clore ta saisie par la touche entrée.
Dans ce cas il faut que l'activation de la touche entrée lance les traitements de fin de saisie.

[LE VIEUX]

re,
essayes, sur évènement "sur touche appuyée" de ton formulaire,

Code :

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

1
2
3
4
5
6
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
'....code correspondant à ton bouton
End If
 
End Sub

[christophe31]

Salut,

Oleff, c'est vrai, je n'ai pas pensé à ce problème. Lorsque je taperais, le focus se placera directement sur le bouton.

LE VIEUX, j'ai essayé ton code, ça ne fait rien.
Lorsque j'insère une donnée dans une textbox puis Entrée, rien ne se passe.

Même pour afficher coucou quand je clique sur une touche, j'ai du mal. Dans OPtion Access / Avancé j'ai essayé les différentes options (aucun effet, champ suivant, enregistrement suivant) ça ne fontionne pas. Quelle galère...

Code :

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

1
2
3
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox "coucou"
End Sub

Code :

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

1
2
3
Private Sub Form_KeyPress(KeyAscii As Integer)
MsgBox "coucou"
End Sub

Merci pour vos aides

[Marc_27]

Bonjour à tous.

J'ai quelque chose parail dans mes applications, et en fait je une solution un peu improvisée:

Dans l'ordre de tabulation, j'ai mis le bouton jusqu'après la zone de texte, et comme ça, lors du fin de la saisie, le focus passe au bouton et après il faut cliquer sur entrée encore une fois. Il faut donc presser Entrée deux fois.

J'espère que ça peut t'aider...

EDIT:

Salut,

Oleff, c'est vrai, je n'ai pas pensé à ce problème. Lorsque je taperais, le focus se placera directement sur le bouton.

LE VIEUX, j'ai essayé ton code, ça ne fait rien.
Lorsque j'insère une donnée dans une textbox puis Entrée, rien ne se passe.

Même pour afficher coucou quand je clique sur une touche, j'ai du mal. Dans OPtion Access / Avancé j'ai essayé les différentes options (aucun effet, champ suivant, enregistrement suivant) ça ne fontionne pas. Quelle galère...


Code :
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox "coucou"
End SubCode :
Private Sub Form_KeyPress(KeyAscii As Integer)
MsgBox "coucou"
End SubMerci pour vos aides

Concernat cette solution, t'as la propriété aperçu des touches activé dans l'onglet "événements" des propriétés de ton formulaire?

[Tofalu]

T'es tu interessé à la propriété Aperçu des touches de ton formulaire ?

[christophe31]

Bonjour,

J'ai mixé les réponses pour me rapprocher de mon besoin.
Voilà ce que j'ai fais :

Dans Propriété du formulaire, onglet Evenement :
Mettre Aperçu des touches à Oui

Puis dans Evenement prendre Sur touche Appuyé et mettre ce code :

Code :

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

1
2
3
4
5
6
7
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
If KeyCode = vbKeyReturn Then
    Mon_Formulaire.Mon_Bouton.SetFocus
End If
 
End Sub

Résultat : lorsque l'on appuie sur la touche Entrée, le focus se place sur le bouton, puis il faut réappuyer sur la touche Entrée pour éxecuter le bouton.

J'ai essayé de remettre le code du bouton dans la condition du dessus. Mais ça ne fonctionne pas correctement, il manque une sorte de mise à jour. Il faut s'y reprendre 2 fois pour avoir le bon résultat.

Merci encore pour vos réponses.