Discussion :

[antoinelavigne]

Bonjour,
j'ai crée pour l'instant un menu, voilà un extrait de mon code :

Code :

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

1
2
3
4
5
6
7
Sub AddMenu()       'Dans un module standart
Set newM = CommandBars(1).Controls.Add(Type:=msoControlPopup, _
    Before:=CommandBars(1).Controls("?").Index, Temporary:=False)
newM.Caption = "Synthese mensuelle"
newM.OnAction = "Bonjour"
Set newM = Nothing
End Sub

J'aimerais créer 2 "sous-menus", lesquels seraient liés à des procédures SUB que j'aurai crées. Si vous m'avez mal compris ... :

[SfJ5Rpw8]

tiens, à voir si on est bien dans la bonne direction :

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
27
28
29
Sub AjtCde(Menu As CommandBarPopup, stCde, stSub)
 Dim m As CommandBarButton
 Set m = Menu.Controls.Add(Type:=msoControlButton, Temporary:=True)
 m.Caption = stCde
 m.OnAction = stSub
 Set m = Nothing
End Sub
Sub AddMenu()       'Dans un module standart
Dim NewM As CommandBarPopup
Dim sMenu1 As CommandBarPopup
Dim sMenu2 As CommandBarPopup
Set NewM = CommandBars(1).Controls.Add(Type:=msoControlPopup, _
    Before:=CommandBars(1).Controls("?").Index, Temporary:=True)
NewM.Caption = "Synthese mensuelle"
Set sMenu1 = NewM.Controls.Add(Type:=msoControlPopup, Temporary:=True)
sMenu1.Caption = "Sous Menu1"
Set sMenu2 = NewM.Controls.Add(Type:=msoControlPopup, Temporary:=True)
sMenu2.Caption = "Sous Menu2"
AjtCde sMenu1, "Ma commande Menu1-1", "Sub1-1"
AjtCde sMenu1, "Ma commande Menu1-2", "Sub1-é"
AjtCde sMenu2, "Ma commande Menu2-1", "Sub2-1"
AjtCde sMenu2, "Ma commande Menu2-2", "Sub2-2"
 
 
Set sMenu1 = Nothing
Set sMenu2 = Nothing
 
Set NewM = Nothing
End Sub

[antoinelavigne]

Ok, j'ai réussi à ajouter mes sous-menus, cependant je n'ai pas exactement ce que je veux :

- Des flèches apparaissent à coté des noms des sous-menus, comme si il y avait des sous-sous-menus. Comment les enlever ?

- Je n'ai pas besoin de cliquer, mais seulement de survoler les sous-menus pour lancer la macro. C'est embetant. Comment enlever ce phénomène et attendre le clic de l'utilisateur pour exécuter la macro renseignée dans le '.action' ?

Merci d'avance

[axelvba]

Bonjour à tous,

C'est peut être mon premier message mais comme je pense avoir la réponse, j'en profite pour intervenir.

Dans la dernière ligne

Code :

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

Type:=msoControlPopup

remplace popup par button

Code :

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

Type:=msoControlButton

Désolé si j'ai fait une erreur mais c'est comme ca que mon code est instruit.

Bonne nuit à tous et à bientôt car si je ne trouve pas solution à mon problème, je risque de revenir avant très vite...

Axel

[SfJ5Rpw8]

antoinelavigne n'est pas réapparu depuis le 30/6 je pense qu'il à résolu ou abandonné son probléme inutile de réveillé un si "vieux" sujet...