Comment savoir si un utlisateur appuie sur une certaine touche?

Commenter

Contenu du snippet

Placez sur votre feuille un timer dont vous mettrez la propriété interval à 1, puis rentrez le code suivant: le programme réagira à l'appuie de la touche "a":

Source / Exemple : 


Private Declare Function GetAsyncKeyState Lib "user32" (ByVal uAction As Long) As Long

Private Sub Timer1_Timer()
Dim Retour As Long
Retour = GetAsyncKeyState(65)   'a
If (Retour And 32768) <> 0 Then
'Rentrez ici le code que vouv voulez mettre lorsque l'on appuie sur la touche "a"
End If
End Sub

Conclusion :


Pour d'autres touches...

'a à z 65 à 90
'Home 36
'End 35
'Flêche vers le haut 38
'Flêche vers le bas 40
'Flêche vers la gauche 37
'Flêche vers la droite 39
'Echap 27
'Impr écran 44
'Page haut 33
'Page bas 34
'Insert 45
'F1 à F12 112 à 123
'Barre d'espace 32
'Ctrl 17
'Alt 18
'Maj 16
'Verr Num 144
'Arrêt défil 145
'Tab 9
'Shift 16

Voilà!!!

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Felix)