Récupérer une donnée d'un grahique

[Seb]

Bonsoir à Tous,

Voila mon probleme, J'ai une table de donnée (D7 D13) dont je me sers pour faire un graphique. A ce graphique j'ai ajouté une courbe de tendance (Polynomiale). Je fais apparaitre sur le graphique le coefficient de determination R². N'étant pas matheux pour 2 sous et-il possible de récupérer ce coefficient pour l'intégrer dans un cellule?

J'ai aussi une autre question mais je prefere mettre un fichier joint car je m'explique pas vraiment bien...

Encore merci à tous...
Seb

 

[Staple1600]

Re : Récupérer une donnée d'un grahique

Bonjour


Ca semble fonctionner (à améliorer)

Sub test()
Dim RII As String
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(1).Select
    With ActiveChart.SeriesCollection(1).Trendlines(1)
        .DisplayRSquared = True
        With .DataLabel
        RII = .Text
        End With
    End With
Range("F28").Value = Right(RII, Len(RII) - 4)
End Sub

 

[Staple1600]

Re : Récupérer une donnée d'un grahique

Re

Ca aussi fonctionne

Sub testII()
Dim RII As String
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(1).Select
RII = ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Text
Range("F28").Value = Right(RII, Len(RII) - 4)
End Sub

Sub testIII()
Application.ScreenUpdating = False
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(1).Select
Range("F28").Value = Right(ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Text, _
Len(ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Text) - 4)
End Sub

 

[Staple1600]

Re : Récupérer une donnée d'un grahique

Re

Et pour finir (en ce qui me concerne)

Sub testIV()
Application.ScreenUpdating = False
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(1).Select
Range("F28").Value = CDec(Right(ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Text, _
Len(ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Text) - 5))
End Sub