Discussion :

[fox971]

Salut toujour pour mon dossier pour la fac

J'ai des problèmes pour calculer une matrice de corrélation sous VBA Excel à chaque fois que j'execute il me dit qu'il y a un indice hors selection.

Pourriez vous me verifier 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
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub CommandButton5_Click()
Dim VStDev() As Variant
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
Dim o As Integer
Dim p As Integer
ReDim VStDev(NbreTitres, NbreTitres)
Sheets("Covariance").Cells.ClearContents
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
k = k + 1
End If
Next i
NbreTitres = k
NbreCorr = NbreTitres * (NbreTitres - 1) / 2
For j = 1 To NbreTitres
Sheets("Covariance").Cells(1 + j, 1) = Sheets("Transit").Cells(1, j).Value
Sheets("Covariance").Cells(1, 1 + j) = Sheets("Transit").Cells(1, j).Value
Next j
NbreRend = Sheets("Transit").Range("A1").End(xlDown).Row - 1
For i = 1 To NbreTitres
    VStDev(i) = Application.StDev(Sheets("Transit").Cells(2, i), Sheets("Transit").Cells(NbreRend + 1, i))
    For o = 1 To i
        Sheets("Covariance").Cells(1 + i, 1 + o) = Application.Covar(Sheets("Transit").Cells(2, i + 1), Sheets("Transit").Cells(NbreRend + 1, i + 1), Sheets("Transit").Range(Cells(2, o + 1), Cells(NbreRend + 1, o + 1))) / (VStDev(i) * VStDev(o))
        Sheets("Covariance").Cells(1 + o, 1 + i) = Sheets("Covariance").Cells(1 + o, 1 + i)
    Next o
Next i
 
End Sub

Merci d'avence
à bientot

[JackOuYA]

bonsoir,

merci de nous préciser la ligne concerné par l'erreur !

où sont déclarés les variables :

Code :

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

NbreTitres, NbreTitres

[fox971]

L'erreur se trouve sur cette ligne:

Code :

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

1
2
 
VStDev(i) = Application.StDev(Sheets("Transit").Cells(2, i), Sheets("Transit").Cells(NbreRend + 1, i))

pour le NbreTitres, NbreTitres le prof nous l'a donner comme sa

[ucfoutu]

Bonsoir,

Code :

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

1
2
3
4
5
6
7
ReDim VStDev(NbreTitres, NbreTitres)
.....

 VStDev(i) = Application.StDev(Sheets("Transit").Cells(2, i), Sheets("Transit").Cells(NbreRend + 1, i))
............
Sheets("Covariance").Cells(1 + i, 1 + o) = Application.Covar(Sheets("Transit").Cells(2, i + 1), Sheets("Transit").Cells(NbreRend + 1, i + 1), Sheets("Transit").Range(Cells(2, o + 1), Cells(NbreRend + 1, o + 1))) / (VStDev( i ) * VStDev(o))
       ....

tu nous expliques ce qu'est ce tableau ?
Il est finalement à combien de dimensions ?
Et initialisées (les dimensions) à quoi (puisque Nbtitres n'est calculé que plus loin ...)?

Bref : tu traites avec un tableau de 0 colonnes sur 0 lignes !!!!, déjà, à la base ... (sans préjudice de ce qu'ensuite, en plus, tu le considères comme un tableau à une seule dimension !!!...)

[fox971]

c'est une matrice aléatoire 4*4

[ucfoutu]

Aléatoire ?
Non (relis-moi attentivement) il a tout sauf de l'aléatoire, dès sa création ! (0 lignes et 0 colonnes...)... et lis le reste également...

[fox971]

Enfaite c'est un des modules de mon Project qui au départ crée une matrice aléatoire ensuite il fait la moyenne la variance et ma troisième procédure est sensée me donné la matrice de corrélation de la premier matrice aléatoire

[ucfoutu]

"censée" ?
Peut-être...
1) Tu as déjà essayé de remplir les tiroirs d'une armoire sans tiroirs ?
2) si ton armoire possède x colonnes de x tiroirs, il te faut dire dans quel tiroir tu mets quelquechose et tu le fais comme aux mots-croisés, en donnant le numéro de colonne et celui de rangée.
C'est si compliqué ?

EDIT : tiens... juste avant la ligne disant :

Code :

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

VStDev(i) = Application.StDev(Sheets("Transit").Cells(2, i), Sheets("Transit").Cells(NbreRend + 1, i))

utilise une msgbox et Ubound pour voir combien de "tiroirs" sont disponibles dans ton tableau ... (aucun...)

[fox971]

D5:G8

[ucfoutu]

gné ?

[fox971]

c'est dans ces cellules la que ma matrice est générée , ensuite ma matrice de corrélation peut se mètre n’importe ou

[ucfoutu]

Veux-tu bien écrire ceci :

Code :

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

MsgBox "ton armoire VStDev possède " & UBound(VStDev, 1) & " tiroirs par " & UBound(VStDev, 2) & " tiroirs"

Juste avant la ligne de code que je t'ai déjà indiquée plus haut et nous dire ce qui s'affiche, s'il te plait ?