Touches cavier

[Eric D]

Bonjour à toutes et tous,

Je cherche à lancer une Proc quand j'appuye sur la touche 'Aide'. Voilà ce que j'ai écris, mais apparement ce n'est pas corecte car ma Proc 'Explication' ne se lance pas.

Private Sub textbox1_keydown(ByVal keycode As MSForms.ReturnInteger, ByVal Shift As Integer)
Application.OnKey "{HELP}", "Explication2"
End Sub

Merci pour votre aide et bon Dimanche.
Eric D

 

[Eric D]

Re : Touches cavier

Re
Et zut !
Eric D

 

[Tibo]

Re : Touches cavier

Salut Eric,

J'essaye de venir à ta rescousse :

Pour le fichier : XLS ou ZIP
Taille : < 48.8 ko

Ne pas oublier de cliquer sur Uploader après avoir sélectionné le fichier


@+

 

[Eric D]

Re : Touches cavier

Re

JE N'ARRIVE PAS A JOINDRE CE FICHIER DE 8KO
RRRRR!!!!

Eric D

 

[Eric D]

Re : Touches cavier

Bonjour Tibo,
Merci pour cette manip, je commençait a ......
Bonne journée
Eric D

 

[JeanMarie]

Re : Touches cavier

Re...

Voici le fichier exemple corrigé

Tu verras que j'ai rajouté une feuille, pour te permettre de comprendre la modification du code de la feuille Feuil2

Private Sub Worksheet_Activate()
   'Quand la feuille Feuil1 devient active, on détourne la touche F1, pour afficher le userform
   Application.OnKey "{F1}", "USF"
End Sub

Private Sub Worksheet_Deactivate()
   'Quand la feuille Feuil1 n'est plus la feuille active, la touche F1, redevient la touche Aide par défaut
   Application.OnKey "{F1}"
End Sub

En ce qui concerne la touche Escape pour unlaoder le Userform, j'ai utilisé l'événément KeyDown de l'userform, pour intercepter l'appui d'une touche au clavier, tout comme le textbox, Keycode contient le numéro de la touche appuyée. La touche Escape a le code 27.

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   If KeyCode = 27 Then Unload UserForm1
End Sub

Voilà.

@+Jean-Marie

 

[Eric D]

Re : Touches cavier

Re

Merci JeanMarie ça marche super et vive le soleil !

Eric D

 

[Eric D]

Re : Touches cavier

Bonjour JeanMarie,

Et oui, c'est encore moi. CA MARCHE pour 'F1', mais je souhaiterais lancer une autre Proc avec 'OUVRIR/F5' quand je suis sur ma feuille et je n'y arrive pas.

D'autre part, je souhaiterais juste savoir comment lire la touche 'PGDN' ds une feuille, je n'y arrive pas non plus. As tu ou sais tu où trouver la dénomination/code de chaque touche.

Merci.

Eric D

 

[JeanMarie]

Re : Touches cavier

Bonjour Eric

Comme, tu l'as sans doute compris, pour détourner une action d'une touche sur une feuille excel, tu dois utiliser la méthode Onkey. Quand tu veux le faire sur un Userform, tu dois le faire à partir de l'événement KeyDown soit d'un objet placé sur ton userform soit de l'userform.

Pour connaître les codes des touches dans l'userform, j'ai utilisé la méthode msgbox Keycode, et à chaque fois que j'appuie sur une touche, j'obtiens un message affichant son code.

@+Jean-Marie

 

[excalibur]

Re : Touches cavier

bonjour tous le monde un fichier exemple si ca peut aider
salutations

 

[Eric D]

Re : Touches cavier

Bonjour JeanMarie, excalibur,

Un grand merci pour vous réponses. excalibur ton petit dossier ait super interressant et utile.

Bon ap.

Eric D