Extraire l'équation d'une courbe polynomiale

Bonjour,

À partir d'un tableau de données, j'ai un programme VBA qui génère un graphique et qui affiche les équations des courbes polynomiale sur le graphique.

Comment faire pour que mon programme VBA récupére les équations des courbes de tendance et les extrait dans une cellule ?

Merci beaucoup!

Je vous envoie une partie de la macro...

For iSrsIx = 1 To iDataColsCt - 1 Step 2

Set srsNew = .SeriesCollection.NewSeries

If iSrsIx <= 12 Then

With srsNew

.Name = rngDataSource.Cells(2, iSrsIx + 1)
.Values = rngDataSource.Cells(4, iSrsIx + 1).Resize(iDataRowsCt - 1, 1)
.XValues = rngDataSource.Cells(4, iSrsIx).Resize(iDataRowsCt - 1, 1)
.MarkerSize = 3
.Border.LineStyle = False
.Trendlines.Add(Type:=xlPolynomial, Order:=2, Forward:=0, Backward:=0_, DisplayEquation:=True, DisplayRSquared:=True).Select

End With

ElseIf iSrsIx <= 20 Then

With srsNew
.Name = rngDataSource.Cells(2, iSrsIx)
.Values = rngDataSource.Cells(4, iSrsIx + 1).Resize(iDataRowsCt - 1, 1)
.XValues = rngDataSource.Cells(4, iSrsIx).Resize(iDataRowsCt - 1, 1)
.MarkerSize = 3
.Border.LineStyle = False
.MarkerBackgroundColorIndex = False
.MarkerForegroundColorIndex = 3

End With

End If

Next

End With