Discussion :

[chepa]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Quelqu'un a une solution?

Merci!

[mercatog]

J'ai testé ce code avec succès

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[chepa]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[chepa]

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