[HS][Basic]Identifier le raccourci qui a lancé une macro

[jeanmi2403]

Bonjour,
Un collègue souhaite lancer une seule macro à partir de plusieurs raccourcis clavier et donc prendre des décisions en fonction du raccourci utilisé, ceci pour ne pas multiplier des macros quasiment identiques.
Je lui ai proposé un raccourci qui lance une boîte de dialogue, mais ça ne semble pas lui convenir.
Une macro lancée depuis un raccourci ne reçoit pas d'événement, donc je ne pense pas que ce soit possible, à part en mettant en place un Listener, mais cette solution me semble bien compliquée.

Ajout : En fait, il n'est pas possible d'identifier quel raccourci, ni quelle icône de la barre d'outils a lancé la macro.

A plus,

[Dude]

Salut,

à part en mettant en place un Listener, mais cette solution me semble bien compliquée.

Oui, c'est un marteau pour écraser une mouche.
Interception via les interfaces com.sun.star.frame.XDispatchProviderInterceptor et com.sun.star.frame.XDispatch

[ddorange]

Bonjour,
S’il y a par exemple trois raccourcis claviers, le plus simple c’est que chacun commande une macro distincte et que chacune de ces macros lance la macro principale avec un paramètre.

Code : Tout sélectionner

Sub Macro1
   Call MainMacro(1)
End sub

Sub MainMacro(iRc as integer)
   Select Case iRc
        Case 1
        ………
        Case 2
        ……..
        Case 3
        ………
   End Select 
   blabla suite ….
End Sub

Cordialement.

[jeanmi2403]

Salut,

chacun commande une macro distincte et que chacune de ces macros lance la macro principale avec un paramètre.

j'avais, bien entendu, proposé cette solution à plusieurs lanceurs.
J'ai posé cette question par curiosité...
Cordialement,

[Dude]

J'ai posé cette question par curiosité...

Et je t'ai répondu.

[jeanmi2403]

Bonsoir,

Oui, c'est un marteau pour écraser une mouche.

Je suis bien d'accord.

J'ai posé cette question par curiosité...

Et je t'ai répondu.

Merci.
J'ai étudié attentivement (ça m'a pris un certain temps) ta proposition. Intéressant mais complexe.
Ça effraie un peu au lancement de l'écoute de voir 300 lignes se remplir....
Et j'ai fini par trouver, simplement en écoutant le clavier. Mais ça revient au même que la solution à plusieurs lanceurs.
Ça m'a toutefois permis de comprendre les "écouteurs".
A plus,