Bonjour à tous,
J'ai besoin de créer une courbe de tendance (polynomiale d'ordre 2) et d'extraire la formule afin de pouvoir connaitre n'importe quel point de la courbe. J'ai réussi à extraire la courbe et à l'afficher.
Par contre je n'arrive pas à avoir le résultat pour une absisse donnée. J'ai un message d'erreur d'execution "1004" - erreur définie par l'application ou par l'objet.
Voici le code:
Sub test()
'
' test Macro
'
Dim x, i As Byte
Application.ScreenUpdating = False
With ActiveSheet
.ChartObjects("Graphique 1").Activate
x = ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Text
x = Split(x, "=")(1)
x = Replace(x, " ", "")
x = Replace(x, "x", "*x")
For i = 2 To 6
x = Replace(x, "x" & i, "x^" & i)
Next i
.Range("C1").Value = x
x = Replace(x, "x", Range("B18"))
.Range("B19").formula = "=" & x
End With
End Sub
Merci d'avance pour vos lumières.
Arthur