Comment savoir si un utlisateur appuie sur une certaine touche?

5/5 (18 avis)

Snippet vu 27 522 fois - Téléchargée 88 fois

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

Ajouter un commentaire Commentaires
cs_tijote Messages postés 1 Date d'inscription mardi 19 juillet 2011 Statut Membre Dernière intervention 24 février 2012
24 févr. 2012 à 15:37
bonjour, est ce qu'il y a un code pour la sourie

axes X et Y + boutton droit et gauche ?

merci
celbcelbcelb Messages postés 9 Date d'inscription mardi 23 septembre 2008 Statut Membre Dernière intervention 17 avril 2010
13 nov. 2009 à 17:43
ont peut executer une procedure si lutilisateur ecrit un mot et non une seul touche presser????
Wilson_Churchill Messages postés 5 Date d'inscription vendredi 27 avril 2007 Statut Membre Dernière intervention 11 septembre 2008
11 sept. 2008 à 15:45
Merci, exactement ce que je cherchais !
cs_Phi Messages postés 2 Date d'inscription mardi 18 juin 2002 Statut Membre Dernière intervention 18 juin 2002
18 juin 2002 à 10:28
Il existe aussu l'évènement :

KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

en VBA (sous Excel notamment), mais qui fonctionne différemment de celui du VB, avec des possibilités en moins (impossible de détecter autre chose que des caractères imprimables).
YvesNo Messages postés 3 Date d'inscription jeudi 14 mars 2002 Statut Membre Dernière intervention 19 mars 2003
24 mars 2002 à 16:33
BIEN. Mais je cherche un moyen simple de testere si un utilisateur appui sur n'importe quelle touche du clavier. j'ai pas trouvé sauf à tester toutes les touches....
Afficher les 18 commentaires

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.