Popup menu problème de manipulation

Version imprimable

Bonjour,

Dans cette fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub chose(varTexte As String, Nb As Integer)
' First, add two buttons to the menu.
 
            With Application.CommandBars.Add(Name:=Mname, Position:=msoBarPopup, MenuBar:=False, Temporary:=True)
            With .Controls.Add(Type:=msoControlButton)
                 .Caption = varTexte
                 .FaceId = 71 + Nb
                 .OnAction = "'" & ThisWorkbook.Name & "'!" & "TestMacro"
 
      End With
      End With
 
End Sub

Quand je fais l'appel suivant :

Code:

1
2
 
Call chose("Tous les types", 0)

ça fonctionne bien

Mais Quand je fais 2 appels ainsi:

Code:

1
2
3
        Call chose("Tous les types", 0)
 
         Call chose("Tous les types", 1)

le programme ne fonctionne plus, Svp pourquoi cette erreur et merci

18/05/2014, 15h59
Daniel.C

Citation:

Svp pourquoi cette erreur et merci

Bonjour,

Quelle est l’erreur ?
18/05/2014, 16h16
Dr walid

Bonjour,

Erreur d’exécution '5'

Argument ou appel de procédure incorrect
18/05/2014, 16h41
mercatog

Code:

With Application.CommandBars.Add(Name:=Mname, Position:=msoBarPopup, MenuBar:=False, Temporary:=True)

Peut être tu veux créer 2 objets avec le même nom contenu dans la variable Mname
18/05/2014, 17h41
Dr walid

Bonsoir,

puis-je voir la modification sur le code pour bien comprendre et merci également.

Cdt
18/05/2014, 17h56
mercatog

A quoi sert ta variable Mname et qu'est ce qu'elle contient?

Il est défini :

Public Const Mname As String = "MyPopUpMenu"

le problème c'est que je voulais réduire le nombre de lignes des instructions en utilisant une fonction.

quand je fais le code ci-dessus y a pas de problème:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 With Application.CommandBars.Add(Name:=str, Position:=msoBarPopup, MenuBar:=False, Temporary:=True) With .Controls.Add(Type:=msoControlButton) .Caption = "test1" .FaceId = 72 .OnAction = "'" & ThisWorkbook.Name & "'!" & "TestMacro" End With With .Controls.Add(Type:=msoControlButton) .Caption = "test2" .FaceId = 71 .OnAction = "'" & ThisWorkbook.Name & "'!" & "TestMacro" End With End With

18/05/2014, 18h14
mercatog

As tu compris que tu ne peux pas nommer 2 objets avec un même nom. Comme si tu vas donner un même nom à tes 2 fils

Oui, effectivement c'est ce j'ai essayé de faire, deux noms différents et le message ne cesse pas de s'afficher:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Call chose("Tous les types", "Mname1", 0)
Call chose("Tous les types", "Mname2", 1)
 
 
Sub chose(varTexte As String, str As String, Nb As Integer)
' First, add two buttons to the menu.
 
With Application.CommandBars.Add(Name:=str, Position:=msoBarPopup, MenuBar:=False, Temporary:=True)
With .Controls.Add(Type:=msoControlButton)
.Caption = varTexte
.FaceId = 71 + Nb
.OnAction = "'" & ThisWorkbook.Name & "'!" & "TestMacro"
 
End With
End With
 
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub chose(varTexte As String, Mname As String, Nb As Integer)
 
On Error Resume Next
Application.CommandBars(Mname).Delete 'On supprime s'il existe
On Error GoTo 0
 
With Application.CommandBars.Add(Name:=Mname, Position:=msoBarPopup, MenuBar:=False, Temporary:=True)
    With .Controls.Add(Type:=msoControlButton)
        .Caption = varTexte
        .FaceId = 71 + Nb
        .OnAction = "'" & ThisWorkbook.Name & "'!" & "TestMacro"
    End With
End With
End Sub

18/05/2014, 20h39
Dr walid

Merci, Le programme s'execute sans problème mais après ces
deux appel:

Call chose("Tous les types", "Mname", 0)

Call chose("Tous les types 2", "Mname2", 1)
je ne vois que le dernier appel qui s'effectue

j'attendais voir un menu:

----------------
|Tous les types|
----------------
|Tous les types2|
----------------