Matrix en vba

Re-bonjour à tous,
J'essaie de faire le produit de deux matrices (enresgistrées comme deux variants de 20 lignes et 20 colonnes chaque).
En écrivant ceci:

Code:

---

vbismat = Application.WorksheetFunction.MMult(vbimat, vsmat)

---

mais je n'y arrive pas même si ma matrix vbismat est aussi un variant 20,20. En fait, ça me donne une

Citation:

---

erreur 1004: unable to get the MMult property of the WorksheetFunction class!

---

Quelqu'un a une solution?

Merci!

J'ai testé ce code avec succès

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Test() Dim Vbimat(1 To 20, 1 To 20) As Double Dim Vsmat(1 To 20, 1 To 20) As Double Dim Vbismat Dim i As Byte, j As Byte   For i = 1 To 20 For j = 1 To 20 Vbimat(i, j) = Rnd() Vsmat(i, j) = Rnd() Next j Next i   Vbismat = Application.WorksheetFunction.MMult(Vbimat, Vsmat)   With Worksheets("Feuil1") .Range("A1").Resize(20, 20) = Vbimat .Range("A22").Resize(20, 20) = Vsmat .Range("A44").Resize(20, 20) = Vbismat End With End Sub

---

bonjour mercatog,

Ton code semble être exactement ce dont j'ai besoin, par contre, et je m'excuse de ne pas avoir été plus explicite, mes deux matrices de départ sont de format variable, donc j'aimerais pouvoir écrire quelque chose comme:

Code:

---

Dim vbimat(1 To a, 1 To a) As Double

---

De plus, les matrices qui seront multiplier sont le résultat de calcul sur d'autre Variants. Voici un example:

Code:

---

1 2 3 4 5 6 7 8 9

For j = 1 To a For i = 1 To a If i = j Then vbimat(i, j) = vbmat(i, j) - vimat(i, j) Else vbimat(i, j) = vbmat(i, j) End If Next Next

---

Donc est ce que je peux identifié vbimat comme Double à l'aide de variable et est ce que je peux calculer vbimat à partir de deux Variant?

Merci beaucoup!

En fait j'ai trouvé!

J'ai simplement mis mes deux matrices en Range pour ensuite faire le calcul matricielle avec ces deux même range.

Merci pour ton aide parce qu'en fait c'est ça qui m'a fait cliquer!

Sincèrement,

Chepa