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
| Private Sub CmdCreerMenuPersonnalise_Click() 'bouton sur la feuille
Dim laMonMenu As CommandBar
Dim laItemMenu As CommandBarControl
Dim laNouvelItem AsCommandBarControl
Dim liPosMenu As Integer
Dim lbMenuPresent As Boolean
' Vérifier si le menu est déjà créé
liPosMenu = 1
lbMenuPresent = False
Set laMonMenu = Application.CommandBars.ActiveMenuBar
For Each laItemMenu In laMonMenu.Controls
If laMonMenu.Controls(liPosMenu).Caption = "Test de &menu" Then
lbMenuPresent = True
End If
liPosMenu = liPosMenu + 1
Next laItemMenu
' Construire le menu s'il n'existe pas
If lbMenuPresent Then
Set laItemMenu = laMonMenu.Controls.Add (Type:=msoControlPopup)
laItemMenu.Conrols(liPosition).Move Before:=liPosMenu - 1 'avant menu ?
Set laNouvelItem = laItemMenu.Controls.Add
laNouvelItem.Caption = "Créer &en-tête"
laNouvelItem.OnAction = "CreerEntete" ' nom de la macro liée au menu
' ...
End if
End sub |