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
Partager