Discussion :

[Jimmatdycol]

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 :

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

[patricktoulon]

c'est un popup que tu veux comme ca

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

[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

[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

[Jimmatdycol]

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

[patricktoulon]

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