Bonjour,

Je souhaite faire un menu dans Excel :
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
Function creationMonMenu()
    Dim objMenu As CommandBar
    Dim objPopup As CommandBarPopup
    Dim objButton As CommandBarButton
 
    For Each objMenu In Application.CommandBars
        If objMenu.Name = "Worksheet Menu Bar" Then
            Set objPopup = objMenu.Controls.Add(msoControlPopup, , , 10, True)
            objPopup.Caption = "MonMenu"
 
            Set objButton = objPopup.Controls.Add(Type:=msoControlButton)
            objButton.Caption = "&Choix1"
            objButton.OnAction = "MesMacros.Macro1"
 
            Set objButton = objPopup.Controls.Add(Type:=msoControlButton)
            objButton.Caption = "&Choix2"
            objButton.OnAction = "MesMacros.Macro2"
        End If
    Next objMenu
End Function
Entre Choix1 et Choix2 je voudrais une ligne de séparation.

Si quelqu'un peut m'expliquer comment faire, par avance merci.