toujours ce calcul matriciel

[Reeaz]

Bonjour,
je suis toujours englué ds mon calcul matriciel, mais j'ai trouvé sur le net des fonctions, mais ayant un niveau en vb et en prog très faible, je n'arrive pas à les faire fonctionner.
Les voici:

Public entr1() As Double
Public ent1() As Double
Public entr2() As Double
Public sor() As Double
Public veci() As Double
Public veco() As Double
Public scal As Double
Public col1 As Integer
Public lin1 As Integer
Public col2 As Integer
Public lin2 As Integer
Public lsr As Integer
Public csr As Integer
Public tagg As Double

Public Sub transpos(N() As Double)

ReDim sor(col1, lin1) As Double
lsr = col1
csr = lin1
Call refresh

ReDim nTRanspo(col1, lin1)

For i = 0 To lin1 - 1
For j = 0 To col1 - 1
sor(j, i) = N(i, j)
Next j
Next i

End Sub

Public Sub refresh()
For i = 0 To lsr - 1
For j = 0 To csr - 1

sor(i, j) = 0

Next j
Next i

End Sub

Sub Main()

End Sub

la fonction transpos transforme juste une matrice initiale en sa transposée, je pense que cela doit etre tou bete de la faire fonctionner mais je n'y arrive pas!!
Si qqun pouvait la faire marcher sur un petit exemple ss excel en ajoutant des petits commentaires ds le code, ce serait cool et me ferait avancer très vite...
Je vous remercie.

Reeaz

 

[Reeaz]

je pense que ce morceau est également utilie à l'exécution de précédent programme

Public Sub affect(entrT() As Double, sorT() As Double)
'************************************
'************************************

For i = 0 To lin1 - 1
For j = 0 To col1 - 1

sorT(i, j) = entrT(i, j)


Next j
Next i

'*************************************
End Sub