coder plusieurs menu contextuel appelant une fonction avec une boucle

[armitage92]

Bonjour,

J'en appelle a votre aide, car je bloque sur la manière de réussir a appeller une fonction, via un sous menu contextuel.

Mon code me permet de créer X sous menu contextuel, suivant des paramètres, mais je n'arrive pas a faire que chaque sous menu créér puisse lancer une fonction avec une variable différente.

Je pense (j'espere) que ce n'est qu'une question de syntaxe, mais je n'arrive pas a voir ou :

Voici le morceau de mon code générant les sous menu :

While Sheets("parametre").Cells(Index_sous_menu, 1).Value <> ""
Set Nom_sous_menu = MainMenu1.Controls.Add(Type:=msoControlButton)
            
            With Nom_sous_menu
                .Caption = Sheets("parametre").Cells(Index_sous_menu, 1).Value & Sheets("parametre").Cells(Index_sous_menu, 2 + 3 * (i - 1)).Value
                .OnAction = "Horaire " & Index_sous_menu
             End With
            Num_contexte = Num_contexte + 1
            Index_sous_menu = Index_sous_menu + 1
Wend

et voici le nom de la fonction que je souhaite pouvoir exectuer lorsqu'on choisit un des sous menu :

Function Horaire(ByVal num As Integer)

mais quand je tente de choisir ce menu contextuel créé, j'ai le message d'erreur "impossible de trouver la macro "Horaire X"

Quelqu'un y voit t'il une erreur flagrante ? 🙁

Merci d'avance de votre aide 🙂

 

[Efgé]

Re : coder plusieurs menu contextuel appelant une fonction avec une boucle

Bonjour armitage92,
Peut être avec

.OnAction = Horaire( Index_sous_menu)

Sans certitude aucune puisque sans avoir testé
Cordialement

 

[armitage92]

Re : coder plusieurs menu contextuel appelant une fonction avec une boucle

j'avais tenté, cela me renvois l'erreur "objet requis".

 

[Efgé]

Re : coder plusieurs menu contextuel appelant une fonction avec une boucle

Re
Suite à ce fil "1 seule macro pour tous les Shapes" et en particulier le post 10 de J.Boisgontier, essai peut être cette syntaxe que je ne connaissai pas :

 .OnAction = "'Horaire """ & Index_sous_menu & """'"

Cordialement

 

[JNP]

Re : coder plusieurs menu contextuel appelant une fonction avec une boucle

Bonjour le fil 🙂,
Je vais peut-être dire une c.. mais, personnellement, j'appellerais une Sub depuis un menu, je ne vois pas ce que la fonction pourrait renvoyer à un menu 🙄...
Bon dimanche 😎