droite d'équation y = ax + b

[HERBIN]

bonsoir
j'ai rédigé un code vba avec pour trouver l'équation y = ax + b avec linest, j'ai uniquement a . comment obtenir la constante b ?

Sub LinEst2VBA()
    Dim v As Variant, x As Variant, Y As Variant
    x = Range("a1:a6")
    Y = Range("b1:b6")
    v = Application.LinEst(Y, x, True, True)
    Range("d2") = v
End Sub

Merci pour votre aide
cordialement
herbin

 

[ROGER2327]

Re : droite d'équation y = ax + b

Bonsoir HERBIN

Pour récupérer le deuxième coefficient, écrivez :​

Sub LinEst2VBA()
    Dim v As Variant, x As Variant, Y As Variant
    x = Range("A1:A6")
    Y = Range("B1:B6")
    v = Application.LinEst(Y, x, True, True)
    Range("D2:E2") = v
End Sub

Pour récupérer tous les paramètres, écrivez :​

Sub LinEst2VBA()
    Dim v As Variant, x As Variant, Y As Variant
    x = Range("A1:A6")
    Y = Range("B1:B6")
    v = Application.LinEst(Y, x, True, True)
    Range("D2:E6") = v
End Sub

ROGER2327
#5847

Vendredi 13 Palotin 139 (Esquive de Saint Léonard da V, illusioniste - fête Suprême Quarte)
13 Floréal An CCXX, 8,4224h - bâton-d'or
2012-W18-3T20:12:50Z

 

[HERBIN]

Re : droite d'équation y = ax + b

merci pour votre aide roger