Données graphique

[Bobosse]

Bonjour,

Sur une feuille je rentre des données qui me servent à tracer un graphique.
Sur ce graphique, je trace une courbe de tendance.

Je lance ensuite une macro qui fait des traitements en fonction de cette courbe de tendance. Et plutôt que de modifier mon programme à chaque fois avec les coefficients qu'Excel a calculé, je souhaiterai que la macro récupère automatiquement ces cofficients.
Quel est le moyen d'y parvenir ?

D'avance merci

 

[Laurent L]

Bonjour,

En supposant que les valeurs X sont dans la plage A2:A6 et les valeurs Y en B2:N6, voici comment récupérer le coefficient et la constante de la courbe de tendance (linéaire) :

Dim Coeffs
Coeffs = WorksheetFunction.LinEst(Range('B2:B6'), Range('A2:A6'))
MsgBox 'Coefficient : ' & Coeffs(1) & vbLf & 'Constante : ' & Coeffs(2)

Cordialement,

Laurent