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