Listbox presentant liste des onglets

[copayo]

Bonsoir à tous,

Je souhaiterais dévelloper une list box présentant les onglets visible d'un classeur.

J'ai récupéré une partie de code mais qui ne traite pas des onglets 'graph'.

Je joins un fichier montrant la strcuture à présenter. Il faudrait que les feuilles apparaissent dans le meme ordre que dans le fichier.

Merci pour votre aide,

Sub MarqueFeuillesListbox()
Dim Availablesheet As Worksheet
For Each Availablesheet In ActiveWorkbook.Worksheets
If Availablesheet.Visible = xlSheetVisible Then
LbFeuilles.AddItem (Availablesheet.Name)
Else
End If
Next Availablesheet
On Error GoTo 0
End Sub
[file name=test_generation_presentation_powerpoint_V2_20060124192149.zip size=14524]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_generation_presentation_powerpoint_V2_20060124192149.zip[/file]

Message édité par: copayo, à: 24/01/2006 19:21

 

[visiteur]

Bonsoir,

Dès un double clic dans une cellule, une fenetre apparait avec la liste des onglets.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
Application.CommandBars('Workbook tabs').ShowPopup
End Sub