DROITEREG en VBA (sans passer par Excel)

willce · 7 Octobre 2010

Bonjour,

Voilà ma problématique: je possède un nuage de points et cherche à déterminer la droite de régression linéaire correspondante.

Les valeurs de ces points sont déterminées via un code VBA et n'apparaissent pas dans un tableau Excel (et je ne tiens pas à les faire apparaitre dans Excel: il s'agit de données temporaires)

Or:
1. je n'ai, au final, besoin de récupérer que la pente (a) et l'ordonnée à l'origine (b) de la droite de regression et
2. comme je l'ai précisé, je ne veux pas passer par l'intermédiaire d'une feuille EXCEL

Idéalement: il me faudrait une fonction VBA (mais pas LINEST qui nécessite "d'écrire" dans Excel) qui me génére les 2 coefficients au sein de ma procédure VBA.

Euh...j'ai été clair ?!
Merci pour vos suggestions

JNP · 7 Octobre 2010

Re : DROITEREG en VBA (sans passer par Excel)

Bonsoir Willce et bienvenue ,
Quelque chose comme

Code:

b = Application.WorksheetFunction.LinEst(x, y, True)

ne te convient pas ?
Bonne soirée

job75 · 7 Octobre 2010

Re : DROITEREG en VBA (sans passer par Excel)

Bonjour willce, JNP,

Un exemple au plus simple :

Code:

Sub Regression()
Dim X(3), Y(3), a As Double, b As Double
X(0) = 0: Y(0) = 1
X(1) = 1: Y(1) = 3
X(2) = 2: Y(2) = 5
X(3) = 3: Y(3) = 7
a = Application.Index(Application.LinEst(Y, X), 1)
b = Application.Index(Application.LinEst(Y, X), 2)
MsgBox "Pente a = " & a & Chr(10) & "Ordonnée à l'origine b = " & b
End Sub

Edit : pas besoin de la fonction Index :

Code:

Sub Regression()
Dim X(3), Y(3), a As Double, b As Double
X(0) = 0: Y(0) = 1
X(1) = 1: Y(1) = 3
X(2) = 2: Y(2) = 5
X(3) = 3: Y(3) = 7
a = Application.LinEst(Y, X)[COLOR="Red"](1)[/COLOR]
b = Application.LinEst(Y, X)[COLOR="red"](2)[/COLOR]
MsgBox "Pente a = " & a & Chr(10) & "Ordonnée à l'origine b = " & b
End Sub

A+

JNP · 7 Octobre 2010

Re : DROITEREG en VBA (sans passer par Excel)

Re ,
Job : J'allais te poser la question si tu utilisais Index pour ne pas tenir compte de Option Base 0 ou 1 ... L'hypothèse est intérressante, non ?
Bonne soirée

job75 · 7 Octobre 2010

Re : DROITEREG en VBA (sans passer par Excel)

Re Jean-Noël,

J'utilisais Index parce que je l'utilise dans une feuille de calcul.

Mais j'ai corrigé car elle est inutile en VBA sur une matrice.

Intéressant de noter aussi que Application.LinEst(Y, X)(0) n'existe pas...

A+

willce · 8 Octobre 2010

[RESOLU] DROITEREG en VBA (sans passer par Excel)

job75 à dit:

Bonjour willce, JNP,

Un exemple au plus simple :

Code:

Sub Regression()
Dim X(3), Y(3), a As Double, b As Double
X(0) = 0: Y(0) = 1
X(1) = 1: Y(1) = 3
X(2) = 2: Y(2) = 5
X(3) = 3: Y(3) = 7
a = Application.Index(Application.LinEst(Y, X), 1)
b = Application.Index(Application.LinEst(Y, X), 2)
MsgBox "Pente a = " & a & Chr(10) & "Ordonnée à l'origine b = " & b
End Sub

Edit : pas besoin de la fonction Index :

Code:

Sub Regression()
Dim X(3), Y(3), a As Double, b As Double
X(0) = 0: Y(0) = 1
X(1) = 1: Y(1) = 3
X(2) = 2: Y(2) = 5
X(3) = 3: Y(3) = 7
a = Application.LinEst(Y, X)[COLOR="Red"](1)[/COLOR]
b = Application.LinEst(Y, X)[COLOR="red"](2)[/COLOR]
MsgBox "Pente a = " & a & Chr(10) & "Ordonnée à l'origine b = " & b
End Sub

A+

Terrible JOB 75, c'est exactement ce que je veux !

Merci également JPN qui a tracé la voie !!

Willce

DROITEREG en VBA (sans passer par Excel)

willce

XLDnaute Nouveau

JNP

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

willce

XLDnaute Nouveau

Discussions similaires