Discussion :

[durdesfois]

Bonjour,

J'ai fréquemment à me servir des courbes de tendance ( en général de degré 1 - droite des moindres carrés,mais pas toujours ...)

Je me demande s 'il est possible de récupérer les coefficients des polynomes d' approximation, car pour l' instant, je me les recalcule dans mon coin (avec les calculs que vous imaginez ..... et le temps que ça prend).

Je n'ai évidemment rien trouvé fans le Help VBA.

Si quelqu'un a une idée, je suis preneur.

Merci à tous.

[tonton fred]

Bonjour,
Lorsque tu ajoutes une courbe de tendance, clique sur l'onglet option et coche "afficher l'equation" (on peut meme le faire apres en cliquant avec le bouton droit et en faisant "format de la courbe de tendance").

[durdesfois]

Merci tonton fred de ta réponse ultra rapide,

Mais je sais déjà faire ce que tu viens de me dire.

Mais je voudrais un moyen de récuperer PAR PROGRAMME ces fameux coefficients.

Merci encore.

[tonton fred]

Et bien pourquoi ne pas faire par fonction les calculs que tu fais a la main ? La derniere fois que j'ai calcule une droite par la methode des moindres carres ca remonte a environ 6 ans (en ADA) mais dans mes souvenirs c'etait assez facile...

[durdesfois]

Ah, tonton Fred,

Je vois que tu connais le problème.

Je vois aussi que tu connais ADA. Ca me plaisait bien.

Le problème, vois-tu , c' est que si je n' avais que du degré 1 à approximer, ça irai encore.

Malheureusement, ce n' est pas toujours le cas (Mais je sais faire) .

Et..... tu connais surement autant que moi les algos (Math App) pour resoudre ce genre de choses, et ça devient vite très pesant.
Ca veut aussi dire que je peux toujours rajouter une série supercalculée à mes graphes....

Voipa

Alors, je me demandais comment Microsoft, qui te pond ça en moins de rien avec leurs fonctions magiques, ne nous donne pas un retour (tableau par exemple) des coefficients d' ordre 0 a n.

T' as vu le problème ?

A mon avis ( me trompè-je ???), il doivent utiliser les DLL adéquates, et il doit y avoir moyen d' en tirer des infos.


Voilà, si j'ai pas, je garderai mes algos d'étudiant.

Merci

[tonton fred]

Re bonjour,

Un petit tour sur le site microsoft donne une bonne piste:

Code :

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

1
2
3
4
5
With Charts("chart1").SeriesCollection(1).Trendlines(1)
    .DisplayRSquared = False
    .DisplayEquation = True
    Worksheets("sheet1").Range("a1").Value = .DataLabel.Text
End With

Pour une courbe de tendance datalabel.text contient l'equation. Ca l'affiche dans une cellule. Il est donc possible de l'extraire dans une variable puis en jouant avec les mid d'extraire les coefs (ou les like)

Code :

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

1
2
Single(mid(equation,1,3))=Coefs1
Single(mid(equation,5,7)=Coefs2

Tu peux recuperer simplement l'equation au format texte sans que ca se voit pour l'utilisateur comme ceci:

Code :

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

1
2
3
4
Application.ScreenUpdating = false
ActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlLinear, DisplayEquation:=True).Select
Equation=datalabel.text
Application.ScreenUpdating = true

Bien sur, c'est juste une piste

edit:
apparement c'est possible (et meme plus simple) de le faire par formule:
http://tushar-mehta.com/publish_trai...nalysis/16.htm