Régression linéaire

[Sly le globe trotter]

Bonjour,

Epuisé par toutes ses recherches, je m'en remets à vos talents...
Je cherche depuis VBA à calculer le coefficient directeur d'une droite de régression... C'est que ça coince sévère !

Voici mon code :

Pente = Application.WorksheetFunction.LinEst(Range("B" & Pos_20p & ":B" & Pos_80p), Range("A" & Pos_20p & ":A" & Pos_80p))

A l'exécution, j'ai une erreur 1004 dont je ne trouve pas la cause.

Merci pour votre aide

 

[jeanpierre]

Re : Régression linéaire

Bonsoir Sly,

Un conseil, essaies déjà de le faire sous excel (il y a des fonctions pour cela)..... et ensuite, essaies de le traduire en VBA...

 

[Sly le globe trotter]

Re : Régression linéaire

Bonsoir,

Merci du conseil mais j'ai tenté cette méthode... Le problème est que je dois automatiser ce calcul et que de passer par la création manuelle d'une macro ne me donne pas les informations satisfaisantes.
En passant par Excel, mes plages de valeurs sont référencées par rapport à ma cellule où j'intègre la formule...

Merci

 

[jeanpierre]

Re : Régression linéaire

Re,

Pas tout compris, mais si tu touches à l'enregistreur, il faut ensuite faire un peu de ménage et réindexer les cellules pour quelles soient adaptives à ta cause....

Mais ta seule phrase (code) ne me parle pas...

 

[Sly le globe trotter]

Re : Régression linéaire

Bonjour,

En passant par l'enregistreur, voici ce que j'obtiens

ActiveCell.FormulaR1C1 = "=LINEST(R[-11]C[-6]:R[-4]C[-6],R[-11]C[-7]:R[-4]C[-7])"

Entre crochets, mes plages de valeurs mais référencées par rapport à ma cellule active...
Si je veux faire ça par rapport à une autre cellule, c'est tout de suite plus compliqué.

Sly