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