Explication fonction keybd_event

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:

---

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. ;)

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:

---

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

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. :D
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.

Bonjour

"%{UP}" peut remplacer "%{down}" dans certains cas (listes déroulantes) et éviter le problème du NUMLOCK

re
d'autant plus qu’avec l'api on a aussi le problème du numlok

Citation:

---

Envoyé par patricktoulon

re
d'autant plus qu’avec l'api on a aussi le problème du numlok

---

Ah... bon et bien c'est raté alors ^^

Merci pour vos conseils, excellente journée à vous. ;)

Bonjour,

ayant le souci effectivement avec les méthodes Sendkeys internes au VBA mais pas avec celle de WsShell !

Exemple dans cette discussion dans la partie Ligne n°22 …

___________________________________________________________________________________________________________

Je suis Paris, Manchester, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …