bonjour,

j ai créer un menu personnalisé dans une feuille xl avec plusieurs boutons.


pour optimiser mon code je voudrais lancer une procedure en lui fournissant un argument.

quand je fournis un argument a la procedure "proc_essais" celle ci n est pas trouvé lors de la compilation
message d erreur = impossible de trouver la macro proc_essais(t)

cette procedure fonctionne bien lorsque je ne lui met aucun argument



code simplifié
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Sub proc_essais(t)
MsgBox t
End Sub
 
Sub ajout_bar_ESSAIS()
Dim menu As CommandBarButton
Dim choixmenu
Dim t
 
 
Application.CommandBars.Add "nouveau menu", 1, 0, True
 
Set menu = CommandBars("nouveau menu").Controls.Add(Type:=msoControlButton)
    With menu
        .Caption = "MENU toto"
        .Style = msoButtonCaption
        .OnAction = "proc_essais"
    End With
 
Application.CommandBars("nouveau menu").Visible = True
End Sub
 
Sub effacfe()
Application.CommandBars("nouveau menu").Delete
End Sub