Création menu déroulant onglet complément

[Pierrot75]

Bonjour,

Savez-vous s'il est possible d'ajouter un menu déroulant dans l'onglet complément qui contiendrait plusieurs boutons ajoutés.

Effectivement j'arrive à ajouter plusieurs boutons individuellement dans l'onglet complément mais n'arrive pas à les grouper dans une liste déroulante.

Merci d'avance.

 

[BOISGONTIER]

Re : Création menu déroulant onglet complément

Bonjour,

Les barres d'outils et menus

Sub auto_open()
    On Error Resume Next
    Set Barre = CommandBars.Add
    Barre.Name = "BarreColoriage"
    Barre.Visible = True
    Set Menu = Barre.Controls.Add(msoControlComboBox)
    Menu.AddItem "Choix1"
    Menu.AddItem "Choix2"
    Menu.AddItem "Choix3"
    Menu.OnAction = "MaMacro"
    Menu.Text = "Sélectionner puis choisir"
End Sub

Sub maMacro()
  Application.ScreenUpdating = False
  choix = CommandBars("BarreColoriage").Controls(1).Text
  Select Case choix
    Case "Choix1"
       MsgBox "choix1"
    Case "Choix2"
       MsgBox "choix2"
  End Select
End Sub

Sub auto_close()
    On Error Resume Next
    CommandBars("BarreColoriage").Delete
End Sub

JB