Discussion :

[Ozer45]

Bonjour le forum,

Je souhaite créé un nouveau menu sur un de mes fichiers excel.

Voici la macro que j'ai créé:

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
 
'premier menu
    With CommandBars(1).Controls.Add(msoControlPopup, before:=10)
            .Caption = "Premiere macro"
        With .Controls.Add(msoControlButton)
                .Caption = "Test1"
                .OnAction = "frmFirst.Show"
        End With
        With .Controls.Add(msoControlButton)
                .Caption = "Test2"
                .OnAction = "MAJ_Données"
        End With
    End With
'deuxieme menu
    With CommandBars(1).Controls.Add(msoControlPopup, before:=10)
            .Caption = "Deuxieme macro"
        With .Controls.Add(msoControlButton)
                .Caption = "Recap1"
                .OnAction = "frmSecond.Show"
        End With
        With .Controls.Add(msoControlButton)
                .Caption = "Recap2"
        End With
    End With

Mon probleme c'est que je ne sais pas comment faire pour créer des commandes de menus de facon à ce qu'il apparaissent en lignes horizontales et non les uns au dessus des autres.

J'esperes que mon explication est clair.

Merci pour vos reponses.

Annie

[fring]

Bonjour,

Tu insères tes contrôles dans des sous-menus (msoControlPopup) et dans ces sous-menus, qui se présentent sous forme d'un menu déroulant, ils s'afficheront obligatoirement les uns au-dessous des autres.