voicesofthewind
XLDnaute Nouveau
Bonjour,
Je dois reprogrammer la fonction covariance sur VBA mais je n'y arrive pas.
J'ai les données de la première variable de D3 à D124 et celles de la seconde de E3 à E124.
Pour le moment j'ai écrit ceci :
Function theCov(rangeA As Range, rangeB As Range) As Double
Dim i As Integer
Dim n As Integer
Dim theSum As Double
Dim meanA As Double
Dim meanB As Double
n = rangeA.Count
meanA = theMean(rangeA)
meanB = theMean(rangeB)
For i = 3 To n + 2
Cells(i, 4).Select
theSum = theSum + (Cells(i, 4) - meanA) * (ActiveCell.Offset(0, 1).Value - meanB)
Next i
theCov = theSum / n
End Function
Si quelqu'un a une solution ou connait une meilleure façon d'y arriver pour m'aider ça serait gentil !
Merci.
Je dois reprogrammer la fonction covariance sur VBA mais je n'y arrive pas.
J'ai les données de la première variable de D3 à D124 et celles de la seconde de E3 à E124.
Pour le moment j'ai écrit ceci :
Function theCov(rangeA As Range, rangeB As Range) As Double
Dim i As Integer
Dim n As Integer
Dim theSum As Double
Dim meanA As Double
Dim meanB As Double
n = rangeA.Count
meanA = theMean(rangeA)
meanB = theMean(rangeB)
For i = 3 To n + 2
Cells(i, 4).Select
theSum = theSum + (Cells(i, 4) - meanA) * (ActiveCell.Offset(0, 1).Value - meanB)
Next i
theCov = theSum / n
End Function
Si quelqu'un a une solution ou connait une meilleure façon d'y arriver pour m'aider ça serait gentil !
Merci.