Sub X_KeyPress et KeyAscii

[vekmort]

Bonjour,

Je souhaite lancer les procédures Dé1_Click, Dé2_Click, jusqu'à 5... en appuyant pour chacune sur les touches : W,X,C,V et B
La procédure ci-dessous ne fonctionne pas...
Merci pour votre aide.

Private Sub Lanceur_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
On Error Resume Next
If Chr = 119 Or Chr = 87 Then Dé1_Click
If Chr = 120 Or Chr = 88 Then Dé2_Click
If Chr = 99 Or Chr = 67 Then Dé3_Click
If Chr = 86 Or Chr = 118 Then Dé4_Click
If Chr = 66 Or Chr = 98 Then Dé5_Click
End Sub

 

[Hervé]

bonjour vekmort, le forum

une alternative peut etre, utiliser la propriété accelerator.

ceci permet d'affecter un raccourci à un controle. attention toutefois, il faut coupler l'appui avec ALT

salut

 

[vekmort]

Bonjour aux deux internautes qui m'ont répondu.
Merci à Hervé et José pour leurs infos.
J'ai remplacé Chr par KeyAscii et ça marche.

Bonne journée,

Vekmort B) B) [file name=Yams.zip size=45489]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Yams.zip[/file]

PS : Vous pouvez essayer ce que ça donne...