[SIZE=2][COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]
[COLOR=NAVY]Sub[/COLOR] CreerMenuCombo()
[COLOR=NAVY]Dim[/COLOR] msoCCB [COLOR=NAVY]As[/COLOR] CommandBarComboBox
[COLOR=NAVY]Set[/COLOR] msoCCB = Application.CommandBars(1).Controls.Add(msoControlComboBox, , , , [COLOR=NAVY]True[/COLOR])
[COLOR=NAVY]With[/COLOR] msoCCB
.TooltipText = "Listes les onglets non masqués du classeur"
.Tag = "LaCombo"
.OnAction = "LaMacro"
Listing
[COLOR=NAVY]End With
End Sub[/COLOR]
[COLOR=NAVY]Sub[/COLOR] Listing()
[COLOR=NAVY]Dim[/COLOR] WK [COLOR=NAVY]As[/COLOR] Worksheet
[COLOR=NAVY]Dim[/COLOR] cbo [COLOR=NAVY]As[/COLOR] CommandBarControl
[COLOR=NAVY]Set[/COLOR] cbo = Application.CommandBars(1).FindControl(Tag:="LaCombo")
cbo.Clear
[COLOR=NAVY]For Each[/COLOR] WK [COLOR=NAVY]In[/COLOR] ThisWorkbook.Worksheets
[COLOR=NAVY]If[/COLOR] WK.Name <> "Codes" And WK.Name <> "CE_Vierge" [COLOR=NAVY]Then[/COLOR]
cbo.AddItem WK.Name
[COLOR=NAVY]End If
Next[/COLOR] WK
[COLOR=NAVY]End Sub[/COLOR]
[/SIZE]