matrice de variance-covariance sous VBA

Version imprimable

04/05/2016, 10h36
samitahiri

1 pièce(s) jointe(s)

matrice de variance-covariance sous VBA

salut toutes et à tous, je voudrais bien vous demander une aide concernant la matrice de variance covariance sous VBA, s il y a quelqu'un(e) peut suggérer un code pour le calcule de cette matrice. Vous pouvez trouvez ci-joint un photo de la feuille su laquelle je travaille.
Merci d'avance et bien cordialement

Il y a deux fonctions nativement dans Excel :
COVARIANCE.STANDARD
COVARIANCE.PEARSON

Pour la différence, je ne sais pas mais ça m'intéresse.

Sinon pour la variance, je pense que covariance(A;A) = variance(A)

Ou sinon :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Function VARIANCE(plage As Range) As Double Dim m As Double, t As Double Dim i& Dim arr() m = Application.Average(plage) arr = plage.value t = 0 For i = 1 To UBound(arr) t = t + ((arr(i, 1) - m) ^ 2) Next i VARIANCE = t / UBound(arr) End Function

1 pièce(s) jointe(s)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Base 1
Sub test()
    Dim AllRange As Range
    Dim MyMat(3, 3) As Double
    With ThisWorkbook.Worksheets("sheet1")
 
        'On determine les vecteurs
        Set AllRange = .Range(.Range("D4").Offset(1), .Range("D4").End(xlToRight).End(xlDown))
 
        For i = 1 To 3
            For j = 1 To 3
 
                MyMat(i, j) = Application.WorksheetFunction.Covariance_P(AllRange.Columns(i), AllRange.Columns(j))
            Next j
        Next i
        .Range("I13").Resize(UBound(MyMat), UBound(MyMat, 2)).Value = MyMat
    End With
End Sub

Voici le fichier ;)

Si c'est bon tu peux le mettre en résolu :)