Discussion :

[fmris]

Bonjour
J'ai un graphique sur lequel je dessine une courbe de 2ème degre. En appliquant la courbe de tendance polynome 2 je trouve une équation. Or je voudrais récupérer cette équation de courbe de tendance sous une voire plusieurs cellules (à chaque coef sa cellule). Comment faire ????
Merci de voter aide
(ca marche bien avec une regression linéaire droitereg et ordonneeorigine mais pour un polynome second degre je sais pas)

[Daranc]

Salut
un exemple
vaut mieux qu'un long discours
je ne me rappelle plus qui a fait ce classeur
Daranc

[fmris]

merci
je vois que c'est possible mais a vrai dire je ne vois vraiment pas comment il faut faire !!!! j'ai pas tout compris
Au secours !!!!!!!!!!!!

[durdesfois]

Bonjour,(plutôt Bonne nuit maintenant)

Je crois que j'ai ce qu' il te faut.
J'avais posé une question du même genre il y a un mois à peu près.

Je vais retrouver tout ça dans mes discussions, et tu auras en prime une sub pour récupérer les coefficients.

Attention , je l'ai écrite pour des régressions polynomiales.
Pour d'autres(exp,log,..), il faut réécrire la Sub.

Je m'active....

A+

[durdesfois]

Ca y est,

J'ai fouillé dans toutes mes poches et je pense l' avoir retrouvée.
Je l' ai codée à la hache, .... il y a peut être mieux.

'GRAPHIQUE.chartobject(1)' peut être remplacé par une feuille 'GRAPHIQUE'

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
public ncoeff as byte
public coeff(7) as double
sub extractcoeff()
sim zz as variant,i as byte
eq$ = GRAPHIQUE.ChartObjects(1).Chart.SeriesCollection(1).Trendlines(1).DataLabel.Text
    zz = Split(eq$, "="): eq$ = zz(1) & " "
    eq1$ = v$: i = 1: eq$ = eq$ & "x "
    Do While i <= Len(eq$): z$ = Mid$(eq$, i, 1)
      Select Case z$
      Case "x": eq1$ = eq1$ & u$: i = i + 1
        If IsNumeric(Mid$(eq$, i, 1)) Then i = i + 1
      Case Else: i = i + 1: eq1$ = eq1$ & z$
      End Select
    Loop
    eq1$ = Left$(eq1$, Len(eq1$) - 1)
    zz = Split(eq1$, u$)
    For i = 0 To UBound(zz)
     If IsNumeric(zz(i)) Then ncoeff = ncoeff + 1: coeff(noeff) = CDbl(zz(i))
    Next i

Voilà, ca devrais...

A+

[fmris]

merci mais j'aurais souhaiter connaitre la solution sans passer par le vba ou la programmation.
Pour mon pb, il est possible d'utiliser des matrices comme dans l'exemple "tendance.xls" mis plus haut dans le forum pour me retrouver les coeficient d'un polynome. Simplement j'ai fait un essai et j'ai pas compris comment ca fonctionnait.
Donc pour le moment jsuis pas plus avancé....
Pour résumer, je souhaite récupérer les coef de l'équation de la courbe de tendance dans des cellules excel.
Merci

[Daranc]

Salut
j'ai remis le fichier avec à l'intérieur quelque explications sur les modifications que je lui avait apporté pour clarifier les formules
j'espère que ce sera plus clair
Daranc