Discussion :

[samitahiri]

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

[mathspountz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tamtam64]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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