Discussion :

[escalopepane]

Bonjour,

Voila, je me demandais si il existe une fonction dans woorksheet ou même dans les userforms qui s'active des la détection d'une touche clavier?

[NVCfrm]

Bonsoir escalopepane,
il te faudra t'appuyer sur un methode de l'application Application.OnKey.

[escalopepane]

Merci de ta réponse NVCfrm mais je ne pense pas que cette fonction peut s'appliquer dans mon cas.

Je m'explique:

Je cherche à faire en sorte que dès que j'appuie sur une touche quelconque, disons "a", je passe un optionbutton.value à true (dans mon userform).

[NVCfrm]

re,
eh bien dans ce cas: lorgne du côté des API. Un peu compliqué à mettre en place, mais bon un programme de gestion bas niveau du clavier pour un programmeur VBA qui veut tout sur un plateau sans se soucier des déclarations et lignes de code faramineuses en dessous, ... reste lourd!
Une piste avec l'API GetKeyState.

Code :

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

1
2
Private Declare Function GetKeyState Lib "user32.dll" ( _ 
	 ByVal nVirtKey As Long) As Integer

[Docmarti]

Tu crées une macro.
Tu cliques sur le bouton MACROS sous l'onglet Développeur.
Cliques sur Options pour affecter un raccourci-clavier à ta macro.
Ce raccourci fonctionnera à partir des feuilles.

Pour avoir un raccourci à partir d'un Userform,
1) Mets la propriété TabStop de tous les controles à False.
2) Utilise UserForm_KeyDown pour détecter ton raccourci.

Code :

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

1
2
3
4
5
6
7
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 
 If Shift = 2 And KeyCode = 71 Then 'CTRL-G
 Stop
  Call mamacro
 End If
End Sub

Docmarti

[Docmarti]

Raphael

Cette question est

Avez-vous obtenu ici la réponse à votre question ou l'avez-vous trouvée vous-même?
Si vous avez trouvé seul, pensez à poster votre solution. Elle peut servir à d'autres!
Pensez aussi à voter pour la réponse qui vous a aidé.

Docmarti