Ajout de Menu avec separateur

Version imprimable

Bonjour,

Je souhaite faire un menu dans Excel :

Code:

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.

17/03/2013, 18h04
Jean-Philippe André

salut,

de quelle version d'Excel s'agit-il ?

une piste dans le tuto :
http://fring.developpez.com/vba/excel/barremenu/#L2.2.9
23/03/2013, 10h54
bbkenny

OK merci.

Je suis avec Excel 2003.

En rajoutant :

Code:

objPopup.Controls("&Choix2").BeginGroup = True

J'obtiens le résultat voulut.

Petit problème supplémentaire, mon fichier Excel peut-être ouvert avec Excel2003 ou Excel2010.
Avec Excel2010, le menu ajouté n'apparait pas.

Si quelqu'un a une idée, par avance merci.

Petit correctif, sous Excel2010 le menu apparait sous le menu Complément. Existe-il une solution pour le faire apparaitre au même niveau que le menu Complément?
23/03/2013, 17h19
Jean-Philippe André

Salut,

regarde si les tutos sur les rubans disponibles te permettent d'arriver à tes fins :)

http://silkyroad.developpez.com/excel/ruban/
http://silkyroad.developpez.com/excel/callbacks/