[VBA-E] Graphiques - Courbes de Tendance

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.

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").

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.

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

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):lol: .

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....:cry:

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.8O

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

Re bonjour,

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

Code:

---

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:

---

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:

---

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

Ca marche très bien.

Ce qui m'a fourvoyé, c'est que MS appelle ça aussi "Etiquette de Données", ce qui prête à confusion.

Encore Merci