Keycode vbKeyControl et vbKeyRight simultanément.

Résolu
Sormick Messages postés 163 Statut Membre -  
NHenry Messages postés 2513 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,

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

  1. ThauTheme Messages postés 1564 Statut Membre 160
     
    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...
    0
    1. Sormick Messages postés 163 Statut Membre
       
      Merci. Il y a t'il un autre moyen de détecter la combinaison de ces touches par exemple avec un autre évènement?
      0
    2. Sormick Messages postés 163 Statut Membre
       
      Bonjour,

      J'ai finalement réussi à détecter la combinaison des deux touches en faisant:
      if Shift = 2 And vbKeyRight Then
      0
  2. NHenry Messages postés 2513 Date d'inscription   Statut Modérateur Dernière intervention   387
     
    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é.
    0