mettre Graph dans listbox

[romain]

bonjour a tous


je voudrais creer une listbox qui reprend tous les graphs de mon classeur, mais aussi qui me permet d'aller directement sur le graph.
Je n'arrive pas a trouver le bon code: qqn peut-il m'aider?

merci

 

[MichelXld]

bonjour Romain

cet exemple liste tous les graphiques du classeur dans une ListBox



Sub ListeGraphiques()
Dim j As Byte, i As Byte
Dim Ch As Chart

With Feuil1.ListBox1
.Clear ' ménage dans listBox
.ColumnCount = 2 'définir le nombre de colonnes dans la ListBox
ListBox1.ColumnWidths = '90;80' 'largeur colonnes
End With

For j = 1 To Sheets.Count
For Each Ch In Charts'recherche onglets graphiques
If Ch.Name = Sheets(j).Name Then
Feuil1.ListBox1.AddItem Sheets(j).Name 'onglets graph
Feuil1.ListBox1.Column(1, Feuil1.ListBox1.ListCount - 1) = Sheets(j).Name
End If
Next Ch

For i = 1 To Sheets(j).ChartObjects.Count 'graphiques dans feuilles
Feuil1.ListBox1.AddItem Sheets(j).ChartObjects(i).Name
Feuil1.ListBox1.Column(1, Feuil1.ListBox1.ListCount - 1) = Sheets(j).Name
Next i
Next

End Sub


ensuite un double clic sur la ListBox permet d'atteindre le graphique de ton choix


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets(Feuil1.ListBox1.Column(1, Feuil1.ListBox1.ListIndex)).Select

If ActiveSheet.Name <> Feuil1.ListBox1.Column(0, Feuil1.ListBox1.ListIndex) Then _
ActiveSheet.ChartObjects(Feuil1.ListBox1.Column(0, Feuil1.ListBox1.ListIndex)).Select

End Sub


(testé avec Excel2002)


bonne soiree
MichelXld