[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DU USERFORM[/I][/B][/COLOR]
[COLOR=NAVY]Private Sub[/COLOR] AfficheMenu()
[COLOR=GREEN]'myDearFriend! - www.mdf-xlpages.com[/COLOR]
[COLOR=NAVY]Dim[/COLOR] Plage1 [COLOR=NAVY]As[/COLOR] Range, Plage2 [COLOR=NAVY]As[/COLOR] Range, Plage3 [COLOR=NAVY]As[/COLOR] Range, Plage4 [COLOR=NAVY]As[/COLOR] Range
[COLOR=NAVY]Dim[/COLOR] Cel1 [COLOR=NAVY]As[/COLOR] Range, Cel2 [COLOR=NAVY]As[/COLOR] Range, Cel3 [COLOR=NAVY]As[/COLOR] Range, Cel4 [COLOR=NAVY]As[/COLOR] Range
DetruireMenu
[COLOR=GREEN]'Définir la Plage1 d'éléments cible (niveau 2)[/COLOR]
[COLOR=NAVY]Set[/COLOR] Plage1 = ElmtsCible(ComboBox1.Value, 2)
[COLOR=GREEN]'Créer le menu déroulant[/COLOR]
[COLOR=NAVY]With[/COLOR] Application.CommandBars.Add("MonMenu", msoBarPopup, , [COLOR=NAVY]True[/COLOR])
[COLOR=NAVY]For Each[/COLOR] Cel1 [COLOR=NAVY]In[/COLOR] Plage1
[COLOR=GREEN]'Ajouter chaque élément au menu déroulant[/COLOR]
[COLOR=NAVY]With[/COLOR] .Controls.Add(msoControlPopup)
.Caption = Replace(Cel1.Text, "'", " ")
.OnAction = "'Niv2 """ & .Caption & """'"
[COLOR=GREEN]'Définir la Plage1 d'éléments cible suivante (niveau 3)[/COLOR]
[COLOR=NAVY]Set[/COLOR] Plage2 = ElmtsCible(.Caption, 3)
[COLOR=NAVY]For Each[/COLOR] Cel2 [COLOR=NAVY]In[/COLOR] Plage2
[COLOR=GREEN]'Ajouter chaque élément au menu déroulant[/COLOR]
[COLOR=NAVY]With[/COLOR] .Controls.Add(msoControlPopup)
.Caption = Replace(Cel2.Text, "'", " ")
.OnAction = "'Niv3 """ & .Caption & """'"
[COLOR=GREEN]'Définir la Plage1 d'éléments cible suivante (niveau 4)[/COLOR]
[COLOR=NAVY]Set[/COLOR] Plage3 = ElmtsCible(.Caption, 4)
[COLOR=NAVY]For Each[/COLOR] Cel3 [COLOR=NAVY]In[/COLOR] Plage3
[COLOR=GREEN]'Ajouter chaque élément au menu déroulant[/COLOR]
[COLOR=NAVY]With[/COLOR] .Controls.Add(msoControlPopup)
.Caption = Replace(Cel3.Text, "'", " ")
.OnAction = "'Niv4 """ & .Caption & """'"
[COLOR=GREEN]'Définir la Plage1 d'éléments cible suivante (niveau 5)[/COLOR]
[COLOR=NAVY]Set[/COLOR] Plage4 = ElmtsCible(.Caption, 5)
[COLOR=NAVY]For Each[/COLOR] Cel4 [COLOR=NAVY]In[/COLOR] Plage4
[COLOR=GREEN]'Ajouter chaque élément au menu déroulant[/COLOR]
[COLOR=NAVY]With[/COLOR] .Controls.Add(msoControlButton)
.Caption = Replace(Cel4.Text, "'", " ")
.OnAction = "'Niv5 """ & .Caption & """'"
[COLOR=NAVY]End With
Next[/COLOR] Cel4
[COLOR=NAVY]End With
Next[/COLOR] Cel3
[COLOR=NAVY]End With
Next[/COLOR] Cel2
[COLOR=NAVY]End With
Next[/COLOR] Cel1
[COLOR=GREEN]'Afficher le menu déroulant[/COLOR]
.ShowPopup
[COLOR=NAVY]End With
End Sub[/COLOR]