des zéros en trop!!

[Senna]

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

 

[Jean-Marie]

Bonjour, Senna

Je ne sais pas si j'ai compris ce que tu voulais dire.
Ce que j'ai peux comprendre, pour mettre des valeurs connues d'une plage de cellules dans un tableau fait ce code
Matrice=Range(A1:G7)

Je n'ai pas mis le nom de la feuille, ce suppose que tu travail sur la feuille active.

Bonne Journée

@+Jean-Marie