Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
j
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
"pirot" a écrit dans le message de groupe de 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
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
j@c
"pirot" <plandhauser@gmail.com> a écrit dans le message de groupe de
discussion :
bb1a2cc7-d547-40d5-9a27-a9167f7647dc@s9g2000yqa.googlegroups.com...
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 ?
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