passage d arguments a une procedure lancer par un menu xl

Version imprimable

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:

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

08/04/2008, 18h01
alsimbad

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

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

Code:

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

08/04/2008, 18h13
ouskel'n'or

Où prends-tu "t" ? C'est une sélection, une valeur ? Comment l'obtiens-tu ?
08/04/2008, 18h26
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:

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
08/04/2008, 18h44
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

j ai trouvé une solution:D

soit en passant l argument directement a la procedure

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub proc_essais(t)
MsgBox t
End Sub
 
Sub ajout_bar_ESSAIS()
Dim menu As CommandBarButton
Dim choixmenu
 
Dim i  As Integer
 
Application.CommandBars.Add "nouveau menu", 1, 0, True
For i = 1 To 5
Set menu = CommandBars("nouveau menu").Controls.Add(Type:=msoControlButton)
    With menu
        .Caption = "MENU n °" & i
        .Style = msoButtonCaption
        .OnAction = "'proc_essais(""toto"")'"
 
        End With
Next i
Application.CommandBars("nouveau menu").Visible = True
End Sub

soit en passant par une variable publique

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public t
Sub proc_essais(t)
MsgBox t
End Sub
Sub ajout_bar_ESSAIS()
Dim menu As CommandBarButton
Dim choixmenu
 
Dim i  As Integer
t = "ca ne marche comme ca "
Application.CommandBars.Add "nouveau menu", 1, 0, True
For i = 1 To 5
Set menu = CommandBars("nouveau menu").Controls.Add(Type:=msoControlButton)
    With menu
        .Caption = "MENU n °" & i
        .Style = msoButtonCaption
        .OnAction = "'proc_essais(t)'"
 
        End With
Next i
Application.CommandBars("nouveau menu").Visible = True
End Sub