[EXCEL/VBA] Menu Separateur

Version imprimable

Bonjour,

je souhaite ajouter un menu dans la barre de menu de Excel, avec des separateur.
Sans separateur, ca marche tres bien...

Code:

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
With Application.CommandBars(1).Controls.Add(msoControlPopup, before:=10)
    .Caption = "NomMenu"
    With .Controls.Add(msoControlPopup)
        .Caption = "N1"
        With .Controls.Add(msoControlButton)
            .Caption = "N11"
            .OnAction = "N11"
        End With
        With .Controls.Add(msoControlButton)
            .Caption = "N12"
            .OnAction = "N12"
        End With
        With .Controls.Add(msoControlButton)
            .Caption = "N13"
            .OnAction = "N13"
        End With
    End With
    With .Controls.Add(msoControlButton)
        .Caption = "Delete"
        .OnAction = "RemoveMe"
    End With
    With .Controls.Add(msoControlButton)
        .Caption = "About"
        .OnAction = "AboutForm"
    End With   
End With

je voudrais avoir une ligne separatrice entre N13 et Delete dans mon menu.
J'ai trouve dans une FAQ du forum http://vb.developpez.com/srcvba/?pag...face#vbaExMenu qu'il fallait palcer un tiret devant le nom du menu avant lequel on souhaitais avoir le separateur

Mais ca ne semble pas fonctionner,

quelqu'un as t'il une idee?

par avance merci,

Daniel.

09/01/2008, 14h14
Lou Pitchoun
Salut

Citation:

Envoyé par cafeine

' NB : pour insérer un séparateur commencer le nom du menu par un tiret
' ex : "-&Quitter"

Donc :
Code:

1 2 With .Controls.Add(msoControlButton) .Caption = "-&Delete"
;)
09/01/2008, 14h16
Invité

Bonjour

Regarde du coté de BeginGroup, c'est une des propriétés des boutons dans les barres, elle permet de placer une séparation aprés le bouton, donc avant l'autre.

Starec
09/01/2008, 14h22
daniel_gre

- comme indique dans ma question "-&NomMenu" ne fonctionne pas,
- BeginGroup=true, ajoute un separateur dans la barre de menu, mais pas dans le menu lui meme

quelqu'un a t'il une solution ?

par avance merci

Daniel.