Discussion :

[sigmacoder]

Bonjour,

Je travaille sur un projet en utilisant VBA sous EXCEL, et j'ai un petit soucis .

J'ai deux colonnes qui contiennent des données que je trace l'une en fonction de l'autre, et je trace aussi la courbe de tendance de type polynomiale de degré 3.

Je voudrai savoir comment je peux récupérer par un code VBA la valeur des 4 coefficients du polynôme.

Merci d'avance.

[Daniel.C]

Bonjour,

Avec l'enregistreur de macro ?

[sigmacoder]

Merci Daniel pour votre interaction...

Je voudrai les récupérer dans des variables a,b,c et d, donc nécessairement avec du code...

[Daniel.C]

D'accord, j'avais lu de travers (merci à durdesfois s'il fréquente encore ce forum) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim Eq As String
With Sheets("Feuil4").ChartObjects(1).Chart.SeriesCollection(1).Trendlines(1)
    .DisplayEquation = True
    Eq = .DataLabel.Text
    tabl = Split(Eq, " ")
    MsgBox "coeff 1 : " & tabl(1) & Split(tabl(2), "x")(0)
    MsgBox "coeff 2 : " & tabl(3) & Split(tabl(4), "x")(0)
    MsgBox "coeff 3 : " & tabl(5) & Split(tabl(6), "x")(0)
    MsgBox "coeff 4 : " & tabl(7) & Split(tabl(8), "x")(0)
    MsgBox "constante : " & tabl(9) & Split(tabl(10), "x")(0)
End With

Reste à affiner. J'ai laissé le "=" du premier coef car je ne sais pas si je pourrais récupérer s'il y avait un signe "-" en tête.

[sigmacoder]

c'est bizarre y a t il pas de moyen pour avoir la valeur de ces coefficients sans passer par le graphique ? sans même le tracer ?

[Daniel.C]

et je trace aussi la courbe de tendance de type polynomiale de degré 3.

sans passer par le graphique ? sans même le tracer ?

Faudrait savoir...
C'est sans doute possible, puisque Excel le fait; mais pas moi; je ne suis pas un matheux...