Discussion :

[Dr walid]

Bonjour,

Dans cette fonction :

Code :

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

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 :

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

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

ça fonctionne bien

Mais Quand je fais 2 appels ainsi:

Code :

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

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

[Daniel.C]

Svp pourquoi cette erreur et merci

Bonjour,

Quelle est l’erreur ?

[Dr walid]

Bonjour,

Erreur d’exécution '5'

Argument ou appel de procédure incorrect

[mercatog]

Code :

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

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

[Dr walid]

Bonsoir,

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

Cdt

[mercatog]

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

[Dr walid]

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 :

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
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

[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

[Dr walid]

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

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
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

[mercatog]

Code :

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

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

[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|
----------------