Discussion :

[bbkenny]

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.

[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

[bbkenny]

OK merci.

Je suis avec Excel 2003.

En rajoutant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[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/