Feuille object graphique

[tbft]

bonjour

J'ai fais des recherches mais je n'ai rien trouvé sur les feuilles "object/graphique".
J'aimerai savoir comment faire pour accéder aux séries qui composent un graphique.
J'ai accès à ActiveSheet qui me renvoi un object/Graphique.
Mais pas possible de trouver la collection des données.

Quelqu'un peut me dire où je me plante, svp?

D'avance merci

 

[tbft]

J'ai trouvé par hasard en partant de la selection d'une série dans le graphique et en remontant jusqu'à la page en utilisant la propriété parent.

Const code_graphique = "Graphique"
Const nom_seuil_1 = "mini"
Const nom_seuil_2 = "maxi"
'

Public Sub mise_en_forme_graphique()
Dim Liste_Courbes As SeriesCollection, Courbe As Series
  If (Left(ActiveSheet.CodeName, Len(code_graphique)) = code_graphique) Then
    'cest une page graphique
    Set Liste_Courbes = ActiveSheet.ChartGroups(1).SeriesCollection
    For Each Courbe In Liste_Courbes
      With Courbe.Format.Line
        .Visible = msoTrue
        .Weight = 0.25
        If (Right(Courbe.Name, Len(nom_seuil_1)) = nom_seuil_1) Or (Right(Courbe.Name, Len(nom_seuil_2)) = nom_seuil_2) Then .DashStyle = msoLineLongDash
      End With
    Next Courbe
  End If
End Sub