Barre de menus personnalisée fichier xlam

**benjamin66666** · 13/08/2022, 10h20

Bonjour,

j'ai créer un petit outil en xlam.

J'ai réussi à créer une barre d'outil dans une barre de commande "compléments" afin que les utilisateurs puissent gérer les macros en cliquant sur des contrôles.

le soucis est que j'ai trop de fonctions et que cela en pollue la clarté.

J'aimerais avoir un menu déroulant avec mes trois contrôles qui se déroule.

je vous remercie pour votre aide,

Voici une partie de mon code: je souhaiterais un seul bouton ("gestion de la fiche client") puis un menu déroulant avec les trois contrôles ci-dessous,

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
30
31
32
33
34
35
36
37
38
39
40
Sub barre_outil()
 
 'Création d 'un objet qui fait référence à la barre de commandes:
Set MyMenuBar = CommandBars.ActiveMenuBar
MyMenuBar.Visible = True
 
' Ajoute un premier contrôle:
Set NvCtrl = MyMenuBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
With NvCtrl
    .Caption = "création client"                 ' Libellé du bouton.
    .FaceId = 361    'image de visage
    .OnAction = "Ceaclient3.xlam!crea_clt.crea_clt"         ' Macro à lancer.
 
   .Style = msoButtonIconAndCaption
 
 
End With
 
' Ajoute un deuxième contrôle:
Set NvCtrl = MyMenuBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
With NvCtrl
    .Caption = "modification client" ' Libellé du bouton.
 
    .FaceId = 31  'image de stylo
    .OnAction = "Ceaclient3.xlam!modif_client.modif_client"            ' Macro à lancer.
 
    .Style = msoButtonIconAndCaption
End With
 
 
' Ajoute un troisième contrôle:
Set NvCtrl = MyMenuBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
With NvCtrl
    .Caption = "supression client"                   ' Libellé du bouton.
 
    .FaceId = 47    'gomme
    .OnAction = "Ceaclient3.xlam!suppr_client"            ' Macro à lancer.
 
    .Style = msoButtonIconAndCaption
End With