Nom des onglets graph dans listbox

[copayo]

Bonjour a tous,

J'ai récupéré une macro sur le site permettant d'avoir un super module d'impression (Je crois que c thierry le createur)

Ce module affiche dans une liste box les noms des obglets visibles mais pas les noms des onglets Graph.

Auriez vous une solution ??

merci par avance de votre aide

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

 

[PascalXLD]

Bonjour

Modifies

Dim AvailableSheet As Worksheet

par

Dim AvailableSheet As Sheet

et

For Each AvailableSheet In ActiveWorkbook.Worksheets

par

For Each AvailableSheet In ActiveWorkbook.Sheets

Bon courage

 

[copayo]

salut pascal

je viens d'essayer mais ca bug. MErci quand meme

Par contre je viens d'en creer une juste pour les graph que j'appelle en complement et ca marche. PAr contre les noms sont pas tries en ordre croissant dans ma liste box maiq bon c du détail.

Dim AvailableChart As Chart
For Each AvailableChart In ActiveWorkbook.Charts
If AvailableChart.Visible = xlSheetVisible Then
LbFeuilles.AddItem (AvailableChart.Name)
Else
End If
Next AvailableChart
On Error GoTo 0
End Sub

Message édité par: copayo, à: 18/01/2006 12:47