Discussion :

[daniel_gre]

Bonjour,

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

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
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.

[Lou Pitchoun]

Salut

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

Donc :

Code :

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

1
2
    With .Controls.Add(msoControlButton)
        .Caption = "-&Delete"

[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

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