Explication fonction keybd_event

**atk_49** · 30/05/2017, 19h11

Bonjour à tous.

Afin d'ouvrir automatiquement un menu déroulant positionné en A1, je souhaiterais utiliser la fonction keybd_event pour simuler l'appuie sur les touches Alt+ Flèche du bas seulement lorsque je sélectionne A1.

J'ai trouvé beaucoup d'exemples sur le web mais j'avoue ne pas comprendre le principe de cette fonction.

Voici le code d'exemple qui permet d'appuyer sur la touche "e". (je n'ai pas pu faire mieux)

Code :

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

1
2
3
4
5
6
7
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, ActiveSheet.Range("A1")) Is Nothing Then
keybd_event &H45, 0, 0, 0
End If
End Sub

Merci d'avance pour votre aide et très bonne soirée à tous.

**joe.levrai** · 30/05/2017, 20h27

bonjour

utiliser un api pour simuler une frappe clavier, c'est se compliquer la vie pour rien, quand on peut utiliser SendKey par exemple

Code :

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

SendKeys "%{down}"

ceci simule la frappe au clavier que tu souhaites

par ailleurs, à ta place j'appliquerais une seconde condition dans ton code.
si tu sélectionnes plusieurs cellules DONT la cellule A1, le code va également se dérouler. Je ne pense pas que celà génère un problème, mais c'est toujours plus propre.
ajoute une condition sur Target.Count (=1) pour être sûr que seule A1 a été sélectionnée
[EDIT : je viens de tester, si tu sélectionnes plusieurs cellule alors ton menu déroulant en A1 s'ouvrira pas

]

NB : la procédure évènementielle étant écrite dans le module de la feuille ... et ne s'activant que sur cette feuille, le Activesheet est superflu, tu peux directement travailler sur ton Range("A1") sans l'affilier à ActiveSheet

**atk_49** · 30/05/2017, 23h02

Bonsoir joe

À vrai dire j'utilise déjà sendkeys pour cette fonction depuis pas mal de temps mais je suis curieux d'essayer cette autre méthode, et surtout de la comprendre.

De plus avec sendkeys, je rencontre le fameux problème lié au numlock et j'aimerais bien solutionner cela par la même occasion.

En tout cas merci pour le conseil, il est vrai que je n'avais jamais pensé à sélectionner plusieurs cellules.