Calcul d'une matrice de Variance Covariance

Version imprimable

Bonjour,

je débute en VBA. Je cherche à calculer une matrice de variance covariance, mais pour éviter de le faire à la main (et pour éviter des erreurs), je souhaite le programmer en VBA. J'ai fait un code, mais il me génère une erreur. L'aide de microsoft étant du charabia pour moi, je m'adresse à vous.

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
 
Function Covariance(ByVal plage1 As Range, ByVal plage2 As Range) As Double
    'Renvoie : la covariance entre les données contenues dans la plage1
    'et les données contenues dans la plage2
    'Hypothèses : plage1 et plage2 contiennent des données de type numérique
    'et sont de même longueur
 
    Covariance = WorksheetFunction.Covar(plage1, plage2)
End Function
 
Sub MatriceVCV(ByVal plage As Range)
    'Modification : calcule la matrice de variance covariance
    'de la matrice contenue dans "plage" et la stocke
 
    Dim colonne1 As Range, colonne2 As Range
    Dim MatriceVCV As Range
    Set MatriceVCV = Range("L3", "T11")
 
    For Each colonne1 In plage.Columns
        For Each colonne2 In plage.Columns
            MatriceVCV.Cells(colonne1.Column, colonne2.Column).Value = Covariance(colonne1, colonne2)
        Next colonne2
    Next colonne1
End Sub
 
Private Sub test()
    MatriceVCV (Range("B2:J5807"))
End Sub

Lorsque j'exécute la macro test(), j'ai l'erreur Objet requis (erreur 424) qui s'affiche. Quel est le problème ?

Je vous remercie.

19/05/2010, 15h56
Jean-Philippe André
salut,
essaie en enlevant les parentheses :
Code:

1 2 3 Private Sub test() MatriceVCV Range("B2:J5807") End Sub
19/05/2010, 16h00
Didier Gonard
Bonjour,

ou ainsi :
Code:

1 2 3 Private Sub test2() Call MatriceVCV(Range("B2:J5807")) End Sub
PS : je ne sais pas si c'est une bonne idée, de donner le même nom à une procédure et à une variable ;)

personnellement, je ne le ferai surtout pas..

cordialement,

Didier
19/05/2010, 17h22
ANOVA

Tu as raison Ormonth. Je vais renommer cette variable. Je l'avais nommée ainsi car au départ, j'avais écrit une fonction qui renvoyait ma matrice de variance covariance dans un objet de type Range. Mais comme désormais, c'est une procédure, le nom que je lui avais donné n'est plus judicieux.

Vos deux propositions fonctionnent. Je vous remercie.