Fonction produit de matrice

sugvesta Messages postés 6 Date d'inscription jeudi 13 mars 2008 Statut Membre Dernière intervention 30 mars 2009 - 27 mars 2009 à 17:25
sugvesta Messages postés 6 Date d'inscription jeudi 13 mars 2008 Statut Membre Dernière intervention 30 mars 2009 - 30 mars 2009 à 15:14
Bonjour, je code une simple fonction produit de matrice en VBA mais ca me donne un resultat faux, je ne manipule pas encore tres bien les tableaux. Help.


Function produitmatrice(matrice1 As Variant, matrice2 As Variant) As Variant

Dim m, p As Variant


Dim i, j As Integer

m = matrice1
p = matrice2
a = UBound(m, 1)
b = UBound(p, 2)
c = UBound(m, 2)
ReDim summ(a, b)

'For i = 1 To a
'For j = 1 To b
'summ(i, j) = 0
'Next j
'Next i

For i = 1 To a
For j = 1 To b
For k = 1 To c
summ(i, j) = summ(i, j) + m(i, k) * p(k, j)
Next k

Next j
Next i

produitmatrice = summ

End Function

1 réponse

sugvesta Messages postés 6 Date d'inscription jeudi 13 mars 2008 Statut Membre Dernière intervention 30 mars 2009
30 mars 2009 à 15:14
Personne????
Rejoignez-nous