séries graphiques

Le
pirot
Bonsoir,

comment lister (sur une feuille par exemple) ,
pour tous les graphes d'une feuille, la ou les séries de chacun de ces
graphes ?

merci de votre aide
pirot
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
j
Le #21629701
Peut-être comme ça ?

Sub seriesgr()

Set act = ActiveWorkbook
'créer page de résultats
Set nouv = Workbooks.Add.Sheets(1)
Windows(act.Name).Activate
lin = 1
'balayer les graphiques de la page active
For numch = 1 To ActiveSheet.ChartObjects.Count
Set chrt = ActiveSheet.ChartObjects(numch)
chrt.Activate
lin = lin + 2
'inscrire le nom du graphique
If ActiveChart.HasTitle Then
nouv.Cells(lin, 1) = ActiveSheet.ChartObjects(numch).Name
Else
nouv.Cells(lin, 1) = "graphe n° " & numch
End If
'balayer les séries du graphique
For num = 1 To ActiveChart.SeriesCollection.Count
lin = lin + 1
'inscrire le nom de la série
If ActiveChart.SeriesCollection(num).Name <> "" Then
nouv.Cells(lin, 3) = ActiveChart.SeriesCollection(num).Name
Else
nouv.Cells(lin, 3) = "série n° " & num
End If
Next
Next
'afficher le résultat
nouv.Activate

End Sub

voir aussi par exemple http://jacxl.free.fr/cours_xl/vba/etiquettesvba.zip







"pirot" discussion :

Bonsoir,

comment lister (sur une feuille par exemple) ,
pour tous les graphes d'une feuille, la ou les séries de chacun de ces
graphes ?

merci de votre aide
pirot

Publicité
Poster une réponse
Anonyme