Comment en VBA savoir quelle est la touche du clavier sur laquelle on vient d'appuyer ?
"Teddy G" a écrit dans le message de news: cfb4no$rpb$
Comment savoir quelle est la touche du clavier sur laquelle on vient d'appuyer ?
en regardant ce qui s'affiche à l'écran ....
michdenis
Bonjour Jean-Michel,
Il y a bien cette procédure qui a paru ici sur ce forum...mais elle est d'usage très limitée. De fait, si possible du devrait utiliser un "Textbox" de la boîte à outils contrôle" . Dans excel, il n'y aucun événement qui détecte au fur et à mesure la saisie de chaque caractère et par conséquent de chacune des touches enfoncées ...
'Cette section dans le haut d'un module standard :
Public Declare Function GetKeyState _ Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Const VK_RETURN = &HD Public Const VK_DOWN = &H28 Public Const VK_UP = &H26 Public Const VK_LEFT = &H25 Public Const VK_RIGHT = &H27 Public Const VK_TAB = &H9 Public Const VK_LBUTTON = &H1 Public Const VK_RBUTTON = &H2
Dans le module code de la feuille où l'action se déroule. '---------------------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) If GetKeyState(VK_RETURN) < 0 Then MsgBox "Touche Entrée" ElseIf GetKeyState(VK_DOWN) < 0 Then MsgBox "Flèche vers le bas" ElseIf GetKeyState(VK_UP) < 0 Then MsgBox "Flèche vers le haut" ElseIf GetKeyState(VK_LEFT) < 0 Then MsgBox "Flèche vers la gauche" ElseIf GetKeyState(VK_RIGHT) < 0 Then MsgBox "Flèche vers la droite" ElseIf GetKeyState(VK_TAB) < 0 Then MsgBox "Touche tabulation" ElseIf GetKeyState(VK_LBUTTON) = 1 Then MsgBox "bouton gauche souris" ElseIf GetKeyState(VK_RBUTTON) < 0 Then MsgBox "bouton droit souris" End If End Sub '----------------------------------------
Salutations!
"Jean-Michel" a écrit dans le message de news:41190ebe$0$62354$ Bonsoir,
Comment savoir quelle est la touche du clavier sur laquelle on vient d'appuyer ?
Merci
Bonjour Jean-Michel,
Il y a bien cette procédure qui a paru ici sur ce forum...mais elle est d'usage très limitée. De fait, si possible du devrait
utiliser un "Textbox" de la boîte à outils contrôle" . Dans excel, il n'y aucun événement qui détecte au fur et à mesure la
saisie de chaque caractère et par conséquent de chacune des touches enfoncées ...
'Cette section dans le haut d'un module standard :
Public Declare Function GetKeyState _
Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Const VK_RETURN = &HD
Public Const VK_DOWN = &H28
Public Const VK_UP = &H26
Public Const VK_LEFT = &H25
Public Const VK_RIGHT = &H27
Public Const VK_TAB = &H9
Public Const VK_LBUTTON = &H1
Public Const VK_RBUTTON = &H2
Dans le module code de la feuille où l'action se déroule.
'----------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If GetKeyState(VK_RETURN) < 0 Then
MsgBox "Touche Entrée"
ElseIf GetKeyState(VK_DOWN) < 0 Then
MsgBox "Flèche vers le bas"
ElseIf GetKeyState(VK_UP) < 0 Then
MsgBox "Flèche vers le haut"
ElseIf GetKeyState(VK_LEFT) < 0 Then
MsgBox "Flèche vers la gauche"
ElseIf GetKeyState(VK_RIGHT) < 0 Then
MsgBox "Flèche vers la droite"
ElseIf GetKeyState(VK_TAB) < 0 Then
MsgBox "Touche tabulation"
ElseIf GetKeyState(VK_LBUTTON) = 1 Then
MsgBox "bouton gauche souris"
ElseIf GetKeyState(VK_RBUTTON) < 0 Then
MsgBox "bouton droit souris"
End If
End Sub
'----------------------------------------
Salutations!
"Jean-Michel" <jlxe9731@tiscalinet.be> a écrit dans le message de news:41190ebe$0$62354$5fc3050@dreader2.news.tiscali.nl...
Bonsoir,
Comment savoir quelle est la touche du clavier sur laquelle on vient
d'appuyer ?
Il y a bien cette procédure qui a paru ici sur ce forum...mais elle est d'usage très limitée. De fait, si possible du devrait utiliser un "Textbox" de la boîte à outils contrôle" . Dans excel, il n'y aucun événement qui détecte au fur et à mesure la saisie de chaque caractère et par conséquent de chacune des touches enfoncées ...
'Cette section dans le haut d'un module standard :
Public Declare Function GetKeyState _ Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Const VK_RETURN = &HD Public Const VK_DOWN = &H28 Public Const VK_UP = &H26 Public Const VK_LEFT = &H25 Public Const VK_RIGHT = &H27 Public Const VK_TAB = &H9 Public Const VK_LBUTTON = &H1 Public Const VK_RBUTTON = &H2
Dans le module code de la feuille où l'action se déroule. '---------------------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) If GetKeyState(VK_RETURN) < 0 Then MsgBox "Touche Entrée" ElseIf GetKeyState(VK_DOWN) < 0 Then MsgBox "Flèche vers le bas" ElseIf GetKeyState(VK_UP) < 0 Then MsgBox "Flèche vers le haut" ElseIf GetKeyState(VK_LEFT) < 0 Then MsgBox "Flèche vers la gauche" ElseIf GetKeyState(VK_RIGHT) < 0 Then MsgBox "Flèche vers la droite" ElseIf GetKeyState(VK_TAB) < 0 Then MsgBox "Touche tabulation" ElseIf GetKeyState(VK_LBUTTON) = 1 Then MsgBox "bouton gauche souris" ElseIf GetKeyState(VK_RBUTTON) < 0 Then MsgBox "bouton droit souris" End If End Sub '----------------------------------------
Salutations!
"Jean-Michel" a écrit dans le message de news:41190ebe$0$62354$ Bonsoir,
Comment savoir quelle est la touche du clavier sur laquelle on vient d'appuyer ?
Merci
Jean-Michel
Bonjour,
N'y a t-il pas un moyen en utilisant KEYASCII ?
Merci.
"michdenis" a écrit dans le message de news: #
Bonjour Jean-Michel,
Il y a bien cette procédure qui a paru ici sur ce forum...mais elle est d'usage très limitée. De fait, si possible du devrait
utiliser un "Textbox" de la boîte à outils contrôle" . Dans excel, il n'y aucun événement qui détecte au fur et à mesure la
saisie de chaque caractère et par conséquent de chacune des touches enfoncées ...
'Cette section dans le haut d'un module standard :
Public Declare Function GetKeyState _ Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Const VK_RETURN = &HD Public Const VK_DOWN = &H28 Public Const VK_UP = &H26 Public Const VK_LEFT = &H25 Public Const VK_RIGHT = &H27 Public Const VK_TAB = &H9 Public Const VK_LBUTTON = &H1 Public Const VK_RBUTTON = &H2
Dans le module code de la feuille où l'action se déroule. '---------------------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) If GetKeyState(VK_RETURN) < 0 Then MsgBox "Touche Entrée" ElseIf GetKeyState(VK_DOWN) < 0 Then MsgBox "Flèche vers le bas" ElseIf GetKeyState(VK_UP) < 0 Then MsgBox "Flèche vers le haut" ElseIf GetKeyState(VK_LEFT) < 0 Then MsgBox "Flèche vers la gauche" ElseIf GetKeyState(VK_RIGHT) < 0 Then MsgBox "Flèche vers la droite" ElseIf GetKeyState(VK_TAB) < 0 Then MsgBox "Touche tabulation" ElseIf GetKeyState(VK_LBUTTON) = 1 Then MsgBox "bouton gauche souris" ElseIf GetKeyState(VK_RBUTTON) < 0 Then MsgBox "bouton droit souris" End If End Sub '----------------------------------------
Salutations!
"Jean-Michel" a écrit dans le message de news:41190ebe$0$62354$
Bonsoir,
Comment savoir quelle est la touche du clavier sur laquelle on vient d'appuyer ?
Merci
Bonjour,
N'y a t-il pas un moyen en utilisant KEYASCII ?
Merci.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
#oqzOTyfEHA.396@TK2MSFTNGP12.phx.gbl...
Bonjour Jean-Michel,
Il y a bien cette procédure qui a paru ici sur ce forum...mais elle est
d'usage très limitée. De fait, si possible du devrait
utiliser un "Textbox" de la boîte à outils contrôle" . Dans excel, il n'y
aucun événement qui détecte au fur et à mesure la
saisie de chaque caractère et par conséquent de chacune des touches
enfoncées ...
'Cette section dans le haut d'un module standard :
Public Declare Function GetKeyState _
Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Const VK_RETURN = &HD
Public Const VK_DOWN = &H28
Public Const VK_UP = &H26
Public Const VK_LEFT = &H25
Public Const VK_RIGHT = &H27
Public Const VK_TAB = &H9
Public Const VK_LBUTTON = &H1
Public Const VK_RBUTTON = &H2
Dans le module code de la feuille où l'action se déroule.
'----------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If GetKeyState(VK_RETURN) < 0 Then
MsgBox "Touche Entrée"
ElseIf GetKeyState(VK_DOWN) < 0 Then
MsgBox "Flèche vers le bas"
ElseIf GetKeyState(VK_UP) < 0 Then
MsgBox "Flèche vers le haut"
ElseIf GetKeyState(VK_LEFT) < 0 Then
MsgBox "Flèche vers la gauche"
ElseIf GetKeyState(VK_RIGHT) < 0 Then
MsgBox "Flèche vers la droite"
ElseIf GetKeyState(VK_TAB) < 0 Then
MsgBox "Touche tabulation"
ElseIf GetKeyState(VK_LBUTTON) = 1 Then
MsgBox "bouton gauche souris"
ElseIf GetKeyState(VK_RBUTTON) < 0 Then
MsgBox "bouton droit souris"
End If
End Sub
'----------------------------------------
Salutations!
"Jean-Michel" <jlxe9731@tiscalinet.be> a écrit dans le message de
news:41190ebe$0$62354$5fc3050@dreader2.news.tiscali.nl...
Bonsoir,
Comment savoir quelle est la touche du clavier sur laquelle on vient
d'appuyer ?
Il y a bien cette procédure qui a paru ici sur ce forum...mais elle est d'usage très limitée. De fait, si possible du devrait
utiliser un "Textbox" de la boîte à outils contrôle" . Dans excel, il n'y aucun événement qui détecte au fur et à mesure la
saisie de chaque caractère et par conséquent de chacune des touches enfoncées ...
'Cette section dans le haut d'un module standard :
Public Declare Function GetKeyState _ Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Const VK_RETURN = &HD Public Const VK_DOWN = &H28 Public Const VK_UP = &H26 Public Const VK_LEFT = &H25 Public Const VK_RIGHT = &H27 Public Const VK_TAB = &H9 Public Const VK_LBUTTON = &H1 Public Const VK_RBUTTON = &H2
Dans le module code de la feuille où l'action se déroule. '---------------------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) If GetKeyState(VK_RETURN) < 0 Then MsgBox "Touche Entrée" ElseIf GetKeyState(VK_DOWN) < 0 Then MsgBox "Flèche vers le bas" ElseIf GetKeyState(VK_UP) < 0 Then MsgBox "Flèche vers le haut" ElseIf GetKeyState(VK_LEFT) < 0 Then MsgBox "Flèche vers la gauche" ElseIf GetKeyState(VK_RIGHT) < 0 Then MsgBox "Flèche vers la droite" ElseIf GetKeyState(VK_TAB) < 0 Then MsgBox "Touche tabulation" ElseIf GetKeyState(VK_LBUTTON) = 1 Then MsgBox "bouton gauche souris" ElseIf GetKeyState(VK_RBUTTON) < 0 Then MsgBox "bouton droit souris" End If End Sub '----------------------------------------
Salutations!
"Jean-Michel" a écrit dans le message de news:41190ebe$0$62354$
Bonsoir,
Comment savoir quelle est la touche du clavier sur laquelle on vient d'appuyer ?
Merci
Ricky
Bonjour *Jean-Michel* (et tous les lecteurs)
ou Application.Onkey "touche","procédure" tout dépend de ce que l'on veut en faire.
| Bonjour, | | N'y a t-il pas un moyen en utilisant KEYASCII ? | | Merci. |
-- Ricky [MVP] Visitez les faq.... http://www.faqoe.com http://faqword.free.fr http://dj.joss.free.fr/faq.htm http://www.excelabo.net
Bonjour *Jean-Michel* (et tous les lecteurs)
ou Application.Onkey "touche","procédure"
tout dépend de ce que l'on veut en faire.
| Bonjour,
|
| N'y a t-il pas un moyen en utilisant KEYASCII ?
|
| Merci.
|
--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faqword.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
