Bug avec matrice

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:

---

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:

---

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:

---

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é ?

Bonjour,

Il y' a déjà un problème de dimensions:

Code:

---

1 2 3

Range(Cells(18, 10), Cells(18 + n, m + 6)) = VarCov(Range(Cells(5, 2), Cells(9 + n, m + 6))) 'la plage à valoriser est de taille n+1, m-3 'la matrice de covariance m+5, m+5

---