Discussion :

[ahmedbou]

Bonjour
je n'arrive pas à creer une sous-menu contextuel à trois niveaux sous VBA excel

de la forme :

AA
BB
CC
DD
-> DD1
-> DD2
EE
->EE1
->EE2
->EE3->> EE3.1
->>EE3.2
->> EE3.3
FF
->FF1
->FF2 ->> FF2.1
->> FF2.2
->> FF2.3
GG

si quelqu'un a une idée, grand merci.

[deedolith]

Salut,

Qu'as tu déja fait ?

[ahmedbou]

Salut,

Qu'as tu déja fait ?

bonjour j'ai fait un code :
Sub CreerMenuContextuel()
Dim cbrMenu As CommandBarPopup
Dim cbrSousMenu As CommandBarPopup
Dim cbrSousSousMenu As CommandBarPopup
Dim cbrBouton As CommandBarButton

' Supprimer le menu contextuel s'il existe déjà
On Error Resume Next
Application.CommandBars("Cell").Controls("MenuPrincipal").Delete
On Error GoTo 0

' Créer le menu principal
Set cbrMenu = Application.CommandBars("Cell").Controls.Add(Type:=msoControlPopup, Before:=1)
With cbrMenu
.Caption = "Menu Principal"

' Créer le premier sous-menu
Set cbrSousMenu = .Controls.Add(Type:=msoControlPopup)
With cbrSousMenu
.Caption = "AA"
End With

Set cbrSousMenu = .Controls.Add(Type:=msoControlPopup)
With cbrSousMenu
.Caption = "BB"
End With

Set cbrSousMenu = .Controls.Add(Type:=msoControlPopup)
With cbrSousMenu
.Caption = "CC"
End With

Set cbrSousMenu = .Controls.Add(Type:=msoControlPopup)
With cbrSousMenu
.Caption = "DD"
' Créer les sous-sous-menus pour DD
Set cbrSousSousMenu = .Controls.Add(Type:=msoControlPopup)
With cbrSousSousMenu
.Caption = "DD1"
End With

Set cbrSousSousMenu = .Controls.Add(Type:=msoControlPopup)
With cbrSousSousMenu
.Caption = "DD2"
End With
End With

Set cbrSousMenu = .Controls.Add(Type:=msoControlPopup)
With cbrSousMenu
.Caption = "EE"
' Créer les sous-sous-menus pour EE
Set cbrSousSousMenu = .Controls.Add(Type:=msoControlPopup)
With cbrSousSousMenu
.Caption = "EE1"
End With

Set cbrSousSousMenu = .Controls.Add(Type:=msoControlPopup)
With cbrSousSousMenu
.Caption = "EE2"
End With

Set cbrSousSousMenu = .Controls.Add(Type:=msoControlPopup)
With cbrSousSousMenu
.Caption = "EE3"
' Créer les sous-sous-sous-menus pour EE3
Set cbrSousSousMenu = .Controls.Add(Type:=msoControlPopup)
With cbrSousSousMenu
.Caption = "EE3.1"
End With

Set cbrSousSousMenu = .Controls.Add(Type:=msoControlPopup)
With cbrSousSousMenu
.Caption = "EE3.2"
End With

Set cbrSousSousMenu = .Controls.Add(Type:=msoControlPopup)
With cbrSousSousMenu
.Caption = "EE3.3"
End With
End With
End With

Set cbrSousMenu = .Controls.Add(Type:=msoControlPopup)
With cbrSousMenu
.Caption = "FF"
' Créer les sous-sous-menus pour FF
Set cbrSousSousMenu = .Controls.Add(Type:=msoControlPopup)
With cbrSousSousMenu
.Caption = "FF1"
End With

Set cbrSousSousMenu = .Controls.Add(Type:=msoControlPopup)
With cbrSousSousMenu
.Caption = "FF2"
' Créer les sous-sous-sous-menus pour FF2
Set cbrSousSousMenu = .Controls.Add(Type:=msoControlPopup)
With cbrSousSousMenu
.Caption = "FF2.1"
End With

Set cbrSousSousMenu = .Controls.Add(Type:=msoControlPopup)
With cbrSousSousMenu
.Caption = "FF2.2"
End With

Set cbrSousSousMenu = .Controls.Add(Type:=msoControlPopup)
With cbrSousSousMenu
.Caption = "FF2.3"
End With
End With
End With

Set cbrSousMenu = .Controls.Add(Type:=msoControlPopup)
With cbrSousMenu
.Caption = "GG"
End With
End With
End Sub

Sub ReInit()
Application.CommandBars("Cell").Reset
End Sub
Sub lire()
Application.CommandBars.ActionControl.Caption
End Sub

pas tres beau.
merci pour l'amalioration.

[deedolith]

Tes menus sont bien crées (ca mériterais d'être factorisé, mais passons).

Seul hic, c'est que tu crée toujours des conteneurs, et aucun item "final".
Quelque chose de ce genre devrais te convenir:

Code :

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

1
2
3
4
Set cbrBouton = .Controls.Add(Type:=msoControlButton)
With cbrBouton
        .Caption = "AA"
End With

Il ne te restera plus qu'a renseigner la propriété OnAction pour relier l'item à une fonction.

[ahmedbou]

Tes menus sont bien crées (ca mériterais d'être factorisé, mais passons).

Seul hic, c'est que tu crée toujours des conteneurs, et aucun item "final".
Quelque chose de ce genre devrais te convenir:

Code :

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

1
2
3
4
Set cbrBouton = .Controls.Add(Type:=msoControlButton)
With cbrBouton
        .Caption = "AA"
End With

Il ne te restera plus qu'a renseigner la propriété OnAction pour relier l'item à une fonction.

Bonjour
En fait j'aimerai mettre un fichier d'entrees de 3 niveaux pour creer l'arborescence de menu/sous menus.
Merci pour votre retour.

[deedolith]

Si tu veux passer par un fichier texte,
il te faut d'abord réflechir à quelles informations tu as besoin pour:
1) Créer un item.
2) Retrouver l'item parent (car c'est à partir du parent que l'on créé les enfants).

Coté VBA, il te faudra une fonction permettant de retrouver un item particulier.

Mais commençons pas le fichier texte.
Quelle structure envisages-tu ?
Que comptes-tu y inclure ?

Je te suggère de bien regarder les propriétés d'un item (CommandBarControl) afin d'écrire ton fichier en conséquence.
Tips: Il est préférable que chaque ligne contienne suffisement d'informations pour retrouver / ajouter un item, ainsi chaque ligne est indépendante, c'est plus facile à traiter.