Ajout de Sous Menu a un MENU

Version imprimable

Bonsoir,
Je n'arrive a ajouter un sous menu au menu GAMMES

- 1 J'aimerais ajouter un sous menu a: "Consulter/Modifier les Gammes Contrat"
- 2 J'aimerais ajouter un sous menu et un sous sous menu a: "Ajouter des Gammes au Contrat"

Voici le code que j'utilise

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub auto_open()
 
Dim MaBarre As CommandBar
 
 
 
 
Set MaBarre = CommandBars.Add(Name:="NouvelleBarre", MenuBar:=True, Temporary:=True)
MaBarre.Visible = True
 
MenuBars("NouvelleBarre").Menus.Add Caption:="&              CONTRAT", Before:=1
With MenuBars("NouvelleBarre").Menus("              CONTRAT").MenuItems
.Add Caption:="Nouvelle Etude Contrat", OnAction:="NouvelleEtudeContrat"
.Add Caption:="Liste des Etudes en Attente", OnAction:="Scann_des_Fichier_En_Attente"
 
    End With
 
 
MenuBars("NouvelleBarre").Menus.Add Caption:="&AFFICHAGE", Before:=1
With MenuBars("NouvelleBarre").Menus("AFFICHAGE").MenuItems
  .Add Caption:="Fiche Revue Contrat", OnAction:="RevusContrat"
  .Add Caption:="Détail Déboursé P1", OnAction:="DebourseP1"
  .Add Caption:="Détail Déboursé P2", OnAction:="DebourseP2"
  .Add Caption:="P3 ou Inventaire P2", OnAction:="P3ouinventaireP2"
  .Add Caption:="Tableau D'amortissement", OnAction:="TableauAmortissement"
     End With
 
 
MenuBars("NouvelleBarre").Menus.Add Caption:="&              FICHIER", Before:=1
With MenuBars("NouvelleBarre").Menus("              FICHIER").MenuItems
.Add Caption:="a", OnAction:="a"
.Add Caption:="Ouvrir un Etude en Attente", OnAction:="Fr"
End With
 
 
 MenuBars("NouvelleBarre").Menus.Add Caption:="&              GAMMES", Before:=1
With MenuBars("NouvelleBarre").Menus("              GAMMES").MenuItems
.Add Caption:="Consulter/Modifier les Gammes Contrat", OnAction:="Affichage_Menu_Gammes"
.Add Caption:="Ajouter des Gammes au Contrat", OnAction:="Affichage_Menu_Gammes"
 End With
 
 
  End Sub

Merci de votre aide

1 pièce(s) jointe(s)

c'est un popup que tu veux comme ca
Pièce jointe 369297

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Sub create_bar()
    Dim MaBarre As CommandBar, pop, bout
    On Error Resume Next
    CommandBars("NouvelleBarre").Delete
    On Error GoTo 0
    'Set MaBarre = CommandBars.Add(Name:="NouvelleBarre", MenuBar:=True, Temporary:=True)
    Set MaBarre = CommandBars.Add("NouvelleBarre", msoBarPopup, False, True)
    With MaBarre
        'SUBMENU1
        Set pop = MaBarre.Controls.Add(msoControlPopup, 1, , , True)
        pop.Caption = "& CONTRAT"
        With pop
            Set bout = .Controls.Add(msoControlButton, 1, , , True)
            bout.Caption = "Nouvelle Etude Contrat": boutOnAction = "NouvelleEtudeContrat"
            'bout.FaceId = 'le numero de l'icone que tu veux ici
            Set bout = .Controls.Add(msoControlButton, 1, , , True)
            bout.Caption = "Liste des Etudes en Attente": boutOnAction = "Scann_des_Fichier_En_Attente"
            'bout.FaceId = 'le numero de l' icone que tu veux ici
        End With
        'SUBMENU2
        Set pop = MaBarre.Controls.Add(msoControlPopup, 1, , , True)
        pop.Caption = "AFFICHAGE"
        With pop
            Set bout = .Controls.Add(msoControlButton, 1, , , True)
            bout.Caption = "Fiche Revue Contrat": boutOnAction = "RevusContrat"
            'bout.FaceId = 'le numero de l'icone que tu veux ici
            Set bout = .Controls.Add(msoControlButton, 1, , , True)
            bout.Caption = "Détail Déboursé P1": boutOnAction = "DebourseP1"
            'bout.FaceId = 'le numero de l'icone que tu veux ici
            Set bout = .Controls.Add(msoControlButton, 1, , , True)
            bout.Caption = "Détail Déboursé P2": boutOnAction = "DebourseP2"
            'bout.FaceId = 'le numero de l'icone que tu veux ici
            Set bout = .Controls.Add(msoControlButton, 1, , , True)
            bout.Caption = "P3 ou Inventaire P2": boutOnAction = "P3ouinventaireP2"
            'bout.FaceId = 'le numero de l'icone que tu veux ici
            Set bout = .Controls.Add(msoControlButton, 1, , , True)
            bout.Caption = "Tableau D'amortissement": boutOnAction = "TableauAmortissement"
            'bout.FaceId = 'le numero de l'icone que tu veux ici
        End With
        'SUBMENU3
        Set pop = MaBarre.Controls.Add(msoControlPopup, 1, , , True)
        pop.Caption = "FICHIER"
        With pop
            Set bout = .Controls.Add(msoControlButton, 1, , , True)
            bout.Caption = "a": boutOnAction = "a"
            'bout.FaceId = 'le numero de l'icone que tu veux ici
            Set bout = .Controls.Add(msoControlButton, 1, , , True)
            bout.Caption = "uvrir un Etude en Attente": boutOnAction = "Fr"
            'bout.FaceId = 'le numero de l'icone que tu veux ici
        End With
        'SUBMENU4
        Set pop = MaBarre.Controls.Add(msoControlPopup, 1, , , True)
        pop.Caption = "& GAMMES"
        With pop
            Set bout = .Controls.Add(msoControlButton, 1, , , True)
            bout.Caption = "Consulter/Modifier les Gammes Contrat": boutOnAction = "Affichage_Menu_Gammes"
            'bout.FaceId = 'le numero de l'icone que tu veux ici
            Set bout = .Controls.Add(msoControlButton, 1, , , True)
            bout.Caption = "Ajouter des Gammes au Contrat": boutOnAction = "Affichage_Menu_Gammes"
            'bout.FaceId = 'le numero de l'icone que tu veux ici
        End With
 
    End With
    MaBarre.ShowPopup
End Sub

tu devrais t y retrouver facilement pour ajouter un sous menu ou un bouton dans un un sub menu

;)

12/04/2018, 21h55
Jimmatdycol

Bonsoir Patrick et merci beaucoup je vais essayer avec cela .
Au passage petite question , pourquoi les menu dans ton exemple sont il aligner verticalement et non horizontalement?

Merci encore
13/04/2018, 00h12
patricktoulon

re

re
parce que c'est un menu contextuel declanchable n'importe quant et n'importe ou d'ou ma question est ce une commandbar popup que tu veux ou une commandbar dans le ruban
14/04/2018, 15h27
Jimmatdycol

re

Citation:

Envoyé par patricktoulon

re
parce que c'est un menu contextuel declanchable n'importe quant et n'importe ou d'ou ma question est ce une commandbar popup que tu veux ou une commandbar dans le ruban

Bonjour Patrick,
J'aimerais que ce soit une commandbar dans le ruban et a l’extrême l’idéal serait quel soit intégrer directement a coté des menu accueil , insertion etc... et non en sous menu de Complément,
mais après pas mal de lecture je pense que ça n'est pas possible.

Merci pour toute t'on aide
14/04/2018, 19h08
patricktoulon

re

si c'est possible mais en xml customui) pas en vba
14/04/2018, 20h28
Jimmatdycol

Citation:

Envoyé par patricktoulon

si c'est possible mais en xml customui) pas en vba

oui c'est bien se qui me semblais, mais pour le moment ça reste un peux compliqué pour moi.
15/04/2018, 10h35
Jimmatdycol

re

Citation:

Envoyé par patricktoulon

si c'est possible mais en xml customui) pas en vba

Bonjour Patrick,

Je n'arrive pas utilisé t'on code pour m'en inspirer pour réaliser ma commandbar dans le ruban.

dans ton code certaine fonction m’intéresse beaucoup, notamment bout.FaceId

J'aimerais bien avoir le tout en version commandbar dans le ruban.

Les explications que je trouve ne sont pas forcement très claire et visiblement il y a plusieurs façon d'obtenir presque le même résultat.:oops:

1 pièce(s) jointe(s)

au mieux ce que tu peux faire par vba
a toi de choir les face id que tu veux
n'oublie pas de faire un deletebar a la fermeture du fichier ou de recreation de la barre
plus évoluée ou stylée il faudra passer par customui

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Sub Creation_Cbar()
    Dim Cbar As CommandBar
    Set Cbar = CommandBars.Add(Name:="MaBarre", Position:=msoBarTop, Temporary:=True)
    With Cbar
        .Visible = True
 
            'SUBMENU1
            Set pop = .Controls.Add(msoControlPopup, 1, , , True)
            pop.Caption = "& CONTRAT"
            With pop
                Set bout = .Controls.Add(msoControlButton, 1, , , True)
                bout.Caption = "Nouvelle Etude Contrat": boutOnAction = "NouvelleEtudeContrat"
                bout.FaceId = 455
                Set bout = .Controls.Add(msoControlButton, 1, , , True)
                bout.Caption = "Liste des Etudes en Attente": boutOnAction = "Scann_des_Fichier_En_Attente"
                bout.FaceId = 22
            End With
             Set bout = .Controls.Add(msoControlButton, 1, , , True)
               bout.Enabled = False
 
 
            'SUBMENU2
            Set pop = .Controls.Add(msoControlPopup, 1, , , True)
            pop.Caption = "AFFICHAGE"
            With pop
                Set bout = .Controls.Add(msoControlButton, 1, , , True)
                bout.Caption = "Fiche Revue Contrat": boutOnAction = "RevusContrat"
                'bout.FaceId = 'le numero de l'icone que tu veux ici
                Set bout = .Controls.Add(msoControlButton, 1, , , True)
                bout.Caption = "Détail Déboursé P1": boutOnAction = "DebourseP1"
                'bout.FaceId = 'le numero de l'icone que tu veux ici
                Set bout = .Controls.Add(msoControlButton, 1, , , True)
                bout.Caption = "Détail Déboursé P2": boutOnAction = "DebourseP2"
                'bout.FaceId = 'le numero de l'icone que tu veux ici
                Set bout = .Controls.Add(msoControlButton, 1, , , True)
                bout.Caption = "P3 ou Inventaire P2": boutOnAction = "P3ouinventaireP2"
                'bout.FaceId = 'le numero de l'icone que tu veux ici
                Set bout = .Controls.Add(msoControlButton, 1, , , True)
                bout.Caption = "Tableau D'amortissement": boutOnAction = "TableauAmortissement"
                'bout.FaceId = 'le numero de l'icone que tu veux ici
            End With
             Set bout = .Controls.Add(msoControlButton, 1, , , True)
               bout.Enabled = False
            'SUBMENU3
            Set pop = .Controls.Add(msoControlPopup, 1, , , True)
            pop.Caption = "FICHIER"
            With pop
                Set bout = .Controls.Add(msoControlButton, 1, , , True)
                bout.Caption = "a": boutOnAction = "a"
                'bout.FaceId = 'le numero de l'icone que tu veux ici
                Set bout = .Controls.Add(msoControlButton, 1, , , True)
                bout.Caption = "uvrir un Etude en Attente": boutOnAction = "Fr"
                'bout.FaceId = 'le numero de l'icone que tu veux ici
            End With
            'SUBMENU4
            Set bout = .Controls.Add(msoControlButton, 1, , , True)
               bout.Enabled = False
             Set pop = .Controls.Add(msoControlPopup, 1, , , True)
            pop.Caption = "& GAMMES"
            With pop
                Set bout = .Controls.Add(msoControlButton, 1, , , True)
                bout.Caption = "Consulter/Modifier les Gammes Contrat": boutOnAction = "Affichage_Menu_Gammes"
 
                'bout.FaceId = 'le numero de l'icone que tu veux ici
                Set bout = .Controls.Add(msoControlButton, 1, , , True)
                bout.Caption = "Ajouter des Gammes au Contrat": boutOnAction = "Affichage_Menu_Gammes"
                'bout.FaceId = 'le numero de l'icone que tu veux ici
            End With
 
 
    End With
End Sub
Sub deletebar()
    CommandBars("MaBarre").Delete
End Sub

Pièce jointe 370385

15/04/2018, 19h05
Pierre Fauconnier

Salut.

Citation:

Envoyé par Jimmatdycol

[...]

J'aimerais bien avoir le tout en version commandbar dans le ruban.[...]

Normalement, les commandbars sont remplacés par le ruban. Et les sous-menus (du commandbars) n'ont pas de réel équivalent dans le ruban.

Dans le ruban, tu as des onglets, des groupes, et dans les groupes, tu as des boutons de commande (et d'autres contrôles).