Bonjour,
Je cherche à lister les graphiques contenus dans mon classeur. J'ai trouvé un bout de code mais je ne comprends pas tout : Le code se déroule sans encombre mais n'affiche rien. Est-ce que quelqu'un peut m'expliquer comment afficher la liste sur une feuille du même classeur ? Il va s'en dire que mon niveau en vba n'est pas au point !
Merci de votre aide.
Voici le code :
Sub ListGraph()
Dim j As Byte, i As Byte
'Boucle sur tous les onglets du classeur
For j = 1 To Sheets.Count
'Recherche les graphiques incorporés dans la feuille
For i = 1 To Sheets(j).ChartObjects.Count
Debug.Print "Nom: " & Sheets(j).ChartObjects(i).Name & vbTab & _
" dans " & Sheets(j).Name
Next i
Next j
End Sub
Je cherche à lister les graphiques contenus dans mon classeur. J'ai trouvé un bout de code mais je ne comprends pas tout : Le code se déroule sans encombre mais n'affiche rien. Est-ce que quelqu'un peut m'expliquer comment afficher la liste sur une feuille du même classeur ? Il va s'en dire que mon niveau en vba n'est pas au point !
Merci de votre aide.
Voici le code :
Sub ListGraph()
Dim j As Byte, i As Byte
'Boucle sur tous les onglets du classeur
For j = 1 To Sheets.Count
'Recherche les graphiques incorporés dans la feuille
For i = 1 To Sheets(j).ChartObjects.Count
Debug.Print "Nom: " & Sheets(j).ChartObjects(i).Name & vbTab & _
" dans " & Sheets(j).Name
Next i
Next j
End Sub
