Fonction produit de matrice

Signaler
Messages postés
6
Date d'inscription
jeudi 13 mars 2008
Statut
Membre
Dernière intervention
30 mars 2009
-
Messages postés
6
Date d'inscription
jeudi 13 mars 2008
Statut
Membre
Dernière intervention
30 mars 2009
-
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

Messages postés
6
Date d'inscription
jeudi 13 mars 2008
Statut
Membre
Dernière intervention
30 mars 2009

Personne????