Bonjour,

Je rencontre un petit problème avec un code que j'ai créé.

Le code marche mais j'aimerai modifier quelque chose voici le code.

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
19
Function VarCov(rng As Range) As Variant
 
    Dim i As Integer
    Dim j As Integer
    Dim colnum As Integer
    Dim matrix() As Double
 
    colnum = rng.Columns.Count
    ReDim matrix(colnum - 1, colnum - 1)
 
    For i = 1 To colnum
        For j = 1 To colnum
            matrix(i - 1, j - 1) = Application.WorksheetFunction.Covar(rng.Columns(i), rng.Columns(j))
        Next j
    Next i
 
    VarCov = matrix
 
End Function
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub covariance()
 
 
 
Range(Cells(18, 2), Cells(24, 8)) = VarCov(Range(Cells(5, 2), Cells(14, 8)))
 
 
End Sub


Le code marche parfaitement, mais j'aiemerais mettre ceci pour la deuxième partie:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub covariance()
 
Dim n As Integer
Dim m As Integer
 
n = 6
m = 6
 
 
 
Range(Cells(18, 10), Cells(18 + n, m + 6)) = VarCov(Range(Cells(5, 2), Cells(9 + n, m + 6)))
End Sub
Normalement cela me permettra de redimensionner la matrice mais j'ai un message d'erreur "Erreur d'exécution 1004 - impossibilité de lire la propriété Covar de la classe WorksheetFunction"

Est-ce que vous savez comment le débuggé ?