Keycode vbKeyControl et vbKeyRight simultanément.
Résolu
Sormick
Messages postés
163
Statut
Membre
-
NHenry Messages postés 15479 Statut Modérateur -
NHenry Messages postés 15479 Statut Modérateur -
Bonjour,
Je n'arrive pas à récupérer cette saisie clavier lorsque je suis dans texbox1:
Configuration: Configuration: Windows / Chrome 102.0.0.0
Je n'arrive pas à récupérer cette saisie clavier lorsque je suis dans texbox1:
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) if KeyCode = vbKeyControl and KeyCode = vbKeyRight then msgbox "Détection OK" end if End Sub
Configuration: Configuration: Windows / Chrome 102.0.0.0
2 réponses
Bonjour Sormick, bonjour le forum,
L'événement KeyDown ne s'applique, il me semble, qu'à une seule touche et pas à une combinaison. Mais voyons ce qu'en disent les balaises qui rôdent par ici...
L'événement KeyDown ne s'applique, il me semble, qu'à une seule touche et pas à une combinaison. Mais voyons ce qu'en disent les balaises qui rôdent par ici...
En effet, l'événement KeyDown ne s'applique qu'à une seule touche (peut être exception faites des modificateurs : Alt, Shift, Ctrl) .
Pour faire ce que tu veux avec cette méthode, il te faut mémoriser quelle touches a été pressée (grace à KeyDown) et les oublier quand l'événement KeyUp correspondant est généré.
Pour faire ce que tu veux avec cette méthode, il te faut mémoriser quelle touches a été pressée (grace à KeyDown) et les oublier quand l'événement KeyUp correspondant est généré.
J'ai finalement réussi à détecter la combinaison des deux touches en faisant:
if Shift = 2 And vbKeyRight Then