VBA racourci clavier

Bonjour,

Je me suis créé un IHM sous VBA.
J'aurais voulu pouvoir lancer automatiquement une procédure en appuyant sur la touche F1 de mon clavier (racourci clavier).


J'ai essayé :

Code:

---

1 2	Application.OnKey "{F1}", "MaProcedure"

---

mais ca ne fonctionne pas !

Merci pour votre aide.
Ritchie.

Bonjour

Chez moi, le code fourni fonctionne très bien... dans Excel (pas dans VBE)

Ta procédure est bien une procédure sans paramètres?

Slt Pierre,

J'ai ouvert un nouveau document excel pour avoir qqch de clean.

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Activate() Application.OnKey "{F1}", "Aide" End Sub   Private Sub Aide() MsgBox "coucou" End Sub

---

Tu vois, il est des plus basiques.
pourtant ca ne fonctionne pas qd je fais F1 sur ma userform.


Pour répondre à ta question, dans cette exemple bateau, c'est bien une procédure sans paramétre, mais ca ne marche pas pour autant.

Ritchie.

Bonjour,

Code:

---

1 2 3 4 5 6

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _ ByVal Shift As Integer) If KeyCode = 112 Then MsgBox "F1" End If End Sub

---

Ceci fonctionne avec xl2003. [EDIT] Si aucun controle n'a le focus, sinon il faut reproduire la procedure pour chaque controle susceptible de le recevoir.

Cordialement,

Tirex28/

Merci Pierre et tirex28 pour vos réponses.

Effectivement, Application.OnKey ne fonctionne pas pour les Userform mais seulement pour Excel.

Par contre, tirex28, ta procédure est nickel. En fait il me manquait le fait qu'il fallait la répéter pour chaque controle pouvant recevoir le focus.

Un grand merci !!:D
Ritchie.