Discussion :

[patbou]

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

[alsimbad]

et d'apres le code que tu fournis, je ne vois pas comment tu fais pour lui fournir un argument

[patbou]

en effet
ce code n est pas le "vrais" code
c un exemple simple

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
Sub proc_essais(t)
MsgBox t
End Sub
 
Sub ajout_bar_ESSAIS()
Dim menu As CommandBarButton
Dim choixmenu
Dim t
 t = " ce que tu veux"
 
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(t)"
    End With
 
Application.CommandBars("nouveau menu").Visible = True
End Sub
 
Sub effacfe()
Application.CommandBars("nouveau menu").Delete
End Sub

[ouskel'n'or]

Où prends-tu "t" ? C'est une sélection, une valeur ? Comment l'obtiens-tu ?

[patbou]

bonsoir ouskel'n'or

dans l exemple donnée t est un variant et t est affecté d une donnée de type string dès la creation du bouton de commande

si je remplace la procedure

[CODE]Sub proc_essais(t) et onaction = "proc_essais(t)"
[CODE]
par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sub proc_essais()    et  onaction = "proc_essais"

l appel de la procedure est realisé normalement par contre je n arrive pas a appele une procedure avec un argument !!!!
j espere avoir ete assez claire

[ouskel'n'or]

Tu ne dis pas comment est renseigné t
Voici toujours la manière d'envoyer un paramètre à une macro
http://www.developpez.net/forums/sho...ro+param%E8tre