Bonjour à tous et toutes,
Je cherche à trouver les A, B, C.... de l'équation d'une courbe passant par des points définis dans mon tableau.
Pour l'instant ce serait une courbe du genre y= Ax^2 + Bx + C
Avec les x et les y connus
j'ai réussi à faire pour une droite avec
Sub Rectangle2_Cliquer()
Dim x(2), y(2)
i = 5
j = 0
Do Until Cells(i, 3) = ""
If Cells(i, 4) <> "" Then
x(j) = Cells(i, 4)
y(j) = Cells(i, 5)
j = j + 1
End If
i = i + 1
Loop
a = Application.LinEst(y, x)(1) 'Linest SolConiq
b = Application.LinEst(y, x)(2)
MsgBox "Pente a = " & a & Chr(10) & "Ordonnée à l'origine b = " & b
End Sub
j'ai bien l'équation de ma droite mais j'aimerai faire pour une parabole aussi (voir 3. 4ème degrés)