Menu contextuel : optimisation de code (identification de la commande appelante)

  • Initiateur de la discussion Initiateur de la discussion ED31
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ED31

XLDnaute Junior
Bonjour,

A partir du tutoriel de Microsoft sur les menus contextuels, j'ai ajouté au menu contextuel, accessible depuis une sélection de cellule via le click droit de la souris, trois commandes personnelles : chacune d'elles permet de sélectionner un élément dans une liste (texte) qui est inséré dans la sélection. Les commandent sont "Action 1" Action 2 .... et insérent "Projet 1", "Projet 2"😉

Les trois commandes appellent trois macro identiques qui ne différent que par le texte à insérer.
Le projet prévoit de proposer de sélectionner une commande parmi une dizaine proposées (choix dans une liste de dix valeurs)
Il serait souhaitable de n'utiliser qu'une seule macro en passant un paramètre en fonction de la commande sélectionnée par l'utilisateur (rang dans le menu ou autre...). Ce paramètre permettrait de lire la valeur à insérer dans la cellule dans une table.
Je ne vois pas comment procéder. Je ne sais pas si on peut mettre une interception sur chaque commande qui, si sélectionnée, stockerait l'évênement dans une variable pour pouvoir l'utiliser ensuite.
Ci-joint l'état du projet.
Merci pour vos conseils avisés. 🙄
 

Pièces jointes

Re : Menu contextuel : optimisation de code (identification de la commande appelante)

Bonsoir.
Une piste à creuser: Application.Caller(1)
C'est un tableau dans ce cas de figure, dont les éléments 1 et 2 semblent renvoyer le numéro d'ordre du sous menu qui a invoqué la macro.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
Réponses
2
Affichages
944
P
Retour