Associer une macro à la touche clavier "Menu contextuel"

ePour être clair, la touche "Menu contextuel" est située à droite de la barre d'espacement, à côté de la touche Control. Quand cette touche est enfoncée, Excel affiche par défaut le menu contextuel qui serait déroulé si le pointeur de la souris était déplacé à la position du curseur texte, le caret, et qu'un clic droit y était réalisé. Cette touche est essentielle à ceux qui travaillent exclusivement au clavier.

En utilisant l'événement Worksheet_BeforeRightClick, il est possible de supplanter le menu contextuel d'Excel et de lui substituer un menu de remplacement, plus approprié à l'application que l'on développe. Lorsque l'on procède de la sorte, la cohérence voudrait que ce même menu de remplacement soit affiché lorsque la touche Menu est enfoncée. Ce n'est pourtant pas le cas, Excel continuant d'afficher ses propres menus.

Je cherche donc un moyen d'associer à cette touche une macro qui afficherait le même menu que celui produit par le clic droit.

La méthode Application.OnKey n'a pas prévu de constante pour signifier cette touche clavier. Et la tentative naïve suivante ne donne pas de résultat positif, même si l'instruction s'exécute normalement :

Code:

---

1 2	Application.OnKey chr$(vbKeyMenu), "MaMacro"

---

Quelqu'un aurait-il une idée sur la façon d'associer une macro à cette touche ?

Bonjour, j'utilise les OnKeys depuis très longtemps, mais étant sur Mac, nous n'avons pas les même touches . voici les codes pour la touche enter et Ctrl sur Mac, essayez donc d'adapter sur votre ordinateur.

Code:

---

1 2	Application.OnKey "{enter}", "EntréeSaisieAchats" 'changez bien évidemment le nom des Procédures Application.OnKey "^{enter}", "ValidationSaisieAchats"

---

Cordialement 8-)

Bonjour transitoire,

Merci de t'intéresser à ce problème.

La difficulté vient justement du fait que la méthode OnKey n'a pas prévu de constante string pour signifier cette touche du clavier. Je cherche don une manière de contourner cette limitation, ou une tout autre façon de procéder.

Bon dimanche.

Bonjour, je pense que vous pouvez utiliser une double touche pour déclencher votre procédure
Essayez le code ci-dessous. lancez la procédure testOn. a partir de la sur mon Mac, toutes les fois que je fait la double touche ctrl+enter, apparait un messagebox et cela tant que je n'ai pas passé la procédure testOff.
Attention, il n'est pas sur que sur PC , ctrl corresponde a "^" il est possible que soit en soit une autre, a vous d'essayer les correspondances. mais vous pouvez utiliser un autre jeu de touche comme alt+enter ou tab+enter.
vu les différences entre Mac et Pc, je ne peut pas vous renseigner plus que cela,désolé.:(

Code:

---

1 2 3 4 5 6 7 8 9

Sub testOn() Application.OnKey "^{enter}", "Test2" End Sub Sub test2() MsgBox "ca marche!" End Sub Sub testOff() Application.OnKey "^{enter}" End Sub

---

Cordialement 8-)

Bonjour Transitoire,

Je n'ai aucune difficulté à faire exécuter ma macro par OnKey si j'utilise une autre touche que "Menu contextuel". D'ailleurs, en attendant de trouver une solution, j'utilise Alt + FlècheBas.

Si je tiens à la touche Menu, c'est pour des raisons d'ergonomie. Pour les personnes travaillant exclusivement au clavier, les non-voyants notamment, cette touche est naturellement associé au clic droit de la souris, d'où mon entêtement à vouloir utiliser cette touche spécifique.

Merci de ton intérêt.

Bonjour, OK bien compris. désolé de ne pouvoir vous aider plus que cela.
Cordialement 8-)

Bonjour,

la touche menu peut-être activé par la combinaison [Maj]+[F10]

perso j'utilisarai les SendKeys car on peut faire facilement cette combinaison

Code:

---

SendKeys "+{F10}", True

---

Bon c'est vrai j'ai pas tester mais cela devrait fonctionner

A bientôt

PS : Si cela marche ... ou pas merci de le signaler

Bonjour Xlcro

juste en passant pour t'avertir que la touche "FN"(menu) n'est pas active chez moi

par contre"%{F10}" oui
il faut pas oublier que Excel a ses propres règles pour afficher ses menus sur les cellules par exemple et dans d'autre situations

conclusion ce n'est pas du coté de vba que tu dois chercher mais du coté de windows

d'autant plus que pour les mal voyants ca peut être problématique car justement cette touche n'est pas au même endroit sur mes deux claviers

Bonjour Igloobel,

Il est vrai que la touche Menu et la combinaison Maj + F10 ouvrent toutes deux le menu contextuel d'Excel. Toutefois, si j'utilise OnKeys pour associer à Maj + F10 une macro affichant le menu personnalisé que je souhaite, cela n'affecte en rien le comportement de la touche Menu qui continuera d'afficher le Menu propre à Excel. Or, mon objectif est justement d'associer à la touche Menu une macro propre à mon application.

En passant, si SendKeys fonctionne très bien pour simuler l'appui sur la touche Maj + F10, cela n'est pas possible pour la touche Menu, aucune constante n'ayant été prévue à cet effet.

Bonjour Patrick Toulon,

Étonnant que des touches de clavier ne soient pas prises en charge par l'OS. Pour un non voyant, pas de touche Menu, c'est comme pas de souris pour un voyant.

Vous avez sans doute raison, la solution pourrait plutôt être du côté de Windows, non de VBA. Excel et Word semblent tenir mordicus à cette touche, OnKeys et SendKeys ne l'admettant pas en paramètre.

Pour solutionner mon problème, j'ai d'abord tenté de détourner temporairement la barre de commandes "Cell" qui s'ouvre sur clic droit ou appui sur Menu. Mais il ne semble pas possible de prendre complétement le contrôle de cette barre de commandes, Excel y rétablissant à la volée des items que j'y avais désactivés, notamment ceux liés au Copier/Coller.

Dommage également que sur les feuilles, l'événement KeyPressed ne soit pas supporté.

Enfin, je cherche encore un peu. À défaut d'une solution, je vais me rabattre sur la combinaison Alt + flècheBas.


Merci à vous deux.

re

Citation:

---

Pour solutionner mon problème, j'ai d'abord tenté de détourner temporairement la barre de commandes "Cell" qui s'ouvre sur clic droit ou appui sur Menu. Mais il ne semble pas possible de prendre complétement le contrôle de cette barre de commandes, Excel y rétablissant à la volée des items que j'y avais désactivés, notamment ceux liés au Copier/Coller.

---

bonjour
tu peux très bien modifier ou même remplacer le menu(Cell) sans problème

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

'a lancer dans le workbook_open Sub menucelmodifié() With CommandBars("Cell") For i = 1 To .Controls.Count .Controls(i).Visible = False Next Set ctrl = .Controls.Add(1, , , , True) With ctrl: .Caption = "toto": .FaceId = 256: .OnAction = "macro1": End With Set ctrl = .Controls.Add(1, , , , True) With ctrl: .Caption = "titi": .FaceId = 744: .OnAction = "macro2": End With Set ctrl = .Controls.Add(1, , , , True) With ctrl: .Caption = "riri": .FaceId = 952: .OnAction = "macro3": End With 'etc..etc.. End With End Sub 'a lancer dans le Workbook_BeforeClose Sub restbar() CommandBars("Cell").Reset End Sub

---

Pièce jointe 478599

Bonjour Patrick Toulon,

Le code que j'ai d'abord expérimenté est très semblable à celui que vous proposez, à cette différence que mes appels de procédures étaient placés dans le WorkSheet_Activate et le WorkSheet_Deactivate car la substitution de Menu n'est requise que sur une feuille donnée.

J'ai tout de même essayé votre code tel quel, et je constate le même résultat. Dans certaines situations, avant d'afficher la barre de commande "Cell", Excel remet à True la propriété Visible de certains controls. Par exemple, si le presse-papiers n'est pas vide, les options liées au Copier"Coller sont rétablies. Lorsque cela se produit, si j'appuie sur Échappement pour vider le presse-papiers et que je fais ensuite un clic droit, ces options ne sont alors plus affichées. Elles réapparaissent dès que le presse-papiers est regarni. On m'a rapporté, sans que je puisse le vérifier par moi-même, que certaines options venant de tiers peuvent également réapparaître, par exemple "Antidote" lorsque ce correcteur est actif.

Il ne semble pas possible de prendre totalement le contrôle de cette barre de commande, du moins en la modifiant de la sorte. En plus de Visible = False, j'ai ajouté sans succès Enabled = False. L'option de prévider le presse-papiers n'est pas envisageable. J'ignore s'il y a une façon de carrément remplacer le menu "Cell" par un autre.

Merci de l'intérêt que vous portez à ce problème.