Onkey et KeyPress

Version imprimable

13/06/2008, 14h44
galopin01

Onkey et KeyPress

Bonjour,
Je désirais utiliser cette ligne en VBA Excel :

Code:

Application.OnKey "^{*}", "blabla"

mais voilà : seul le * du clavier alphabétique réagit à cette instruction
Le * du clavier numérique n'est pas reconnu. :cry:
C'est pourtant le même KeyPress... (42)
Une solution ?

Merci.
A+

Salut Galopin,

Comme ceci peut-être

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
MsgBox "coucou"
End Sub
 
Sub test_on()
Application.OnKey "+^{" & vbKeyMultiply & "}", "test"
Application.OnKey "+^{*}", "test"
End Sub
 
Sub test_off()
Application.OnKey "+^{" & vbKeyMultiply & "}"
Application.OnKey "+^{*}"
End Sub

14/06/2008, 00h30
ouskel'n'or

Citation:

Envoyé par galopin01

mais voilà : seul le * du clavier alphabétique réagit à cette instruction
Le * du clavier numérique n'est pas reconnu. :cry:
C'est pourtant le même KeyPress... (42)

Pour la solution, je te laisse tester la proposition de fring mais pour ce qui est des étoiles, dans un mot de passe sur filezilla, seuls les chiffres du pavé numérique sont acceptés. Donc, doit bien y avoir une différence.
En quoi est-ce génant maintenant que tu le sais ? ;)

Bon, je viens de tester : Si le keyascii est 49 pour le 1, le keycode est 97. Etc. Pour le 1 du pavé alpha, le keycode reste 49.
Un textbox dans un userform, événement Keyup.
Bonne soirée.
14/06/2008, 00h54
fring

Ouskilestlenord m'a mis sur la piste d'un autre test

Code:

MsgBox vbKeyMultiply

renvoie le code 106

L'utilisation de la touche * du clavier numérique peut donc s'obtenir également comme ceci

Code:

Application.OnKey "{106}", "test"
14/06/2008, 05h24
galopin01

:king:
106 fera très bien l'affaire.
:merci: