S
Senna
Guest
Bonjour,
j'ai creé la macro suivante:
Sub CorrelMatrice()
'procédure qui marche
Dim Matrice(1 To 7, 1 To 7) As Double, Correl(1 To 7, 1 To 7) As Double, i As Integer, j As Integer
'Matrice initiale
For i = 1 To 7
For j = 1 To 7
'Matrice(i, j) = Rnd ' Fill matrice with random numbers
Cells(i, j).Value = Matrice(i, j)
Next
Next
'Matrice finale
For i = 1 To 7
For j = 1 To 7
Correl(i, j) = Matrice(i, j) / ((Matrice(i, i) ^ 0.5) * (Matrice(j, j) ^ 0.5))
ActiveSheet.Cells(i + 8, j) = Correl(i, j)
Next
Next
End Sub
ds la partie "matrice initiale", lorsque je laisse Matrice(i,j)=Rnd, ie qu'il y a une génértion aléatoire de nombres qui se fait, ma proc marche sans problème...
Par contre, lorsque j'essaie de déclarer une tableau déja existant en A1:G7
, la proc ne marche plus et me renvoie des zéros ds la matrice initiale ce qui fait que le prog renvoie des erreurs après!!
Comment faire pr déclarer un tableau déja existant en matrice(i,j)??
Si qqun pouvait m'aider...
Merci
j'ai creé la macro suivante:
Sub CorrelMatrice()
'procédure qui marche
Dim Matrice(1 To 7, 1 To 7) As Double, Correl(1 To 7, 1 To 7) As Double, i As Integer, j As Integer
'Matrice initiale
For i = 1 To 7
For j = 1 To 7
'Matrice(i, j) = Rnd ' Fill matrice with random numbers
Cells(i, j).Value = Matrice(i, j)
Next
Next
'Matrice finale
For i = 1 To 7
For j = 1 To 7
Correl(i, j) = Matrice(i, j) / ((Matrice(i, i) ^ 0.5) * (Matrice(j, j) ^ 0.5))
ActiveSheet.Cells(i + 8, j) = Correl(i, j)
Next
Next
End Sub
ds la partie "matrice initiale", lorsque je laisse Matrice(i,j)=Rnd, ie qu'il y a une génértion aléatoire de nombres qui se fait, ma proc marche sans problème...
Par contre, lorsque j'essaie de déclarer une tableau déja existant en A1:G7
, la proc ne marche plus et me renvoie des zéros ds la matrice initiale ce qui fait que le prog renvoie des erreurs après!!
Comment faire pr déclarer un tableau déja existant en matrice(i,j)??
Si qqun pouvait m'aider...
Merci