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
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