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

 

[wilfried_42]

Re : Touches cavier

Bonjour eric

La touche Aide, c'est bien la touche F1 : application.onkey "{F1}", "Explication2" fonctionne

 

[Eric D]

Re : Touches cavier

Bonjour wilfried_42

J'ai essayé de remplacer {HELP} par {F1}, mais cela reste sans succès ??? que faire ?

Eric D

 

[Eric D]

Re : Touches cavier

Re

J'ai oublié de préciser que mon Textbox est ds un Userform. Je ne sais pas si cela a son importance, mais...

Eric D

 

[papapaul]

Re : Touches cavier

😀 Wifried a bien répondu,
Mais a, i a quequechose qui coche.
Tu a acheter chez eclerc ton cavier?
i manque une touche.
Vive X D 🙄

 

[Eric D]

Re : Touches cavier

Re,

Désolé d'avoir du plomb ds l' 'L' de bon matin !!!

Eric D

 

[JeanMarie]

Re : Touches cavier

Bonjour tout le monde

Eric, je suppose que tu voudrais obtenir, ceci. En fonction de l'objet encours de saisie (ayant le focus) dans l'userform, obtenir une aide différente si l'utilisateur appuie sur la touche d'aide. C'est cela ?

Attention, sur à l'utilisation de {Help} ou {F1}, sur PC, la touche d'aide est la touche F1, je ne crois pas qu'il y est sur les clavier PC une quelconque touche Aide. La touche Aide se trouve sur les claviers Apple.

@+Jean-Marie

 

[Eric D]

Re : Touches cavier

Bonjour JeanMarie,

Effectivement, quand je suis ds mon Textbox se trouvant sur un Usf, j'aimerais pouvoir savoir quelle touche a été appuyée pour pouvoir lancer une proc en concéquence. Directement sur la feuil je fais: Application.OnKey "{HELP}", "Explication"
pour la touche 'HELP'\'F1'.
Que faire lorsque l'on est ds un Usf?
Merci pour ton aide.
Eric D

 

[JeanMarie]

Re : Touches cavier

Re...

Tu avais déjà trouvé le bon événement.

Private Sub textbox1_keydown(ByVal keycode As MSForms.ReturnInteger, ByVal Shift As Integer)
'la valeur de la touche clavier appuyée, est retournée dans la variable Keycode
'la valeur 112 représente la touche F1, valable pour les deux plateformes
If Keycode = 112 then Explication2
End Sub

@+Jean-Marie

 

[Eric D]

Re : Touches cavier

Bonjour JeanMarie,

Je te remercie pour cette info, j'ai rechercher les codes clavier et ça marche nickel.

Bonne journée
Eric D

 

[Eric D]

Re : Touches cavier

Re

Petite question subsidiaire, comment déclancher un évenement sur un Usf composé que de labels. Ma touche 'F1' ouvre un Usf avec un label expliquant les fonctionnalités et j'aimerais pouvoir 'unloader' cet Usf en appuyant sur la touche 'Echap'.
Merci pour ce complément d'information.
Eric D

 

[JeanMarie]

Re : Touches cavier

Bonjour

Eric, je pense que tu devrais mettre un fichier avec ton userform.
Cela serait plus simple pour moi, pour t'expliquer, et faire des essais sur un exemple concret.

@+Jean-Marie

 

[Eric D]

Re : Touches cavier

Bonjour JeanMarie,

Comme tu le demande je t'ai fait un ptit fichier pour t'expliquer. D'autre part, depuis quelques heures, dûe à une manip malencontreuse, certainement, quand j'appuye sur la touche 'Help'/'F1', je n'ai plus le Usf qui apparait, mais l'encadrer d'aide Excel sur tout le côté droit. J'ai regardé ds la config de mon clavier, mais je n'ai pas trouver. Donc je ne peut plus faire apparaître cet Usf avec cette touche.
Merci pour ton aide.
Eric D

 

[Eric D]

Re : Touches cavier

Re
J'ai oublier de te joindre le fichier que voilà.
Merci
Eric D

 

[Eric D]

Re : Touches cavier

Re
oups!
Eric D