Microsoft 365 Erreur avec la fonction MMult

[Johan_25]

Bonjour à tous,
Pour un problème de mécanique je voudrais résoudre un système d'équation à l'aide d'excel et de manipulation de matrice.

Au moment de multiplier 2 matrices ensemble : VBA me signale cette erreur :
"Erreur d'éxecution '1004': Impossible de lire la proriété MMult de la classe worksheetFunction".

J'ai vu cette erreur sur d'autre forum mais je n'ai jamais réussi à trouver une solution pour mon code : (ne pas regarder la phase de remplissage des tableaux : c'est sans importance)
Si qq'un à la solution

Sub res_systeme()

Const n As Integer = 2 'le nombre de subdivision du pieu
Dim l_pieu As Double
Dim M_0 As Double
Dim T_0 As Double

l_pieu = 2
M_0 = 0
T_0 = 20


Dim mat_A(1 To n * 4, 1 To n * 4) As Double
Dim C_i() As Double
Dim mat_B(1 To n * 4) As Double
'A.C = B avec C la matrice des constantes Cik inconnues
'C=A^-1.B : Résolution du système

'--------------------------------------------------
'REMPLISSAGE DES MATRICES mat_A et mat_B 
'--------------------------------------------------

C_i = Application.WorksheetFunction.MMult(Application.WorksheetFunction.MInverse(mat_A), mat_B) 'ici mon erreur


End Sub

 

[Compte Supprimé 979]

Bonjour Johan25

Si on regarde l'aide sur la fonction ici

Méthode WorksheetFunction.MMult (Excel)

Office VBA reference topic

learn.microsoft.com

Il est noté
"Le nombre de colonnes dans matrice1 doit être identique au nombre de lignes dans matrice2, et les deux matrices ne doivent contenir que des nombres."

Est-ce bien le cas

A+

 

[Johan_25]

Bonjour BrunoM45,
ma matrice 1 (mat_A) possède n*4 colonne et ma matrice 2 (mat_B) possède n*4 lignes également :
Dim mat_A(1 To n * 4, 1 To n * 4) As Double ... son inverse est également une matrice de cette dimension.
Dim mat_B(1 To n * 4) As Double

Donc c'est bien le cas

 

[Dranreb]

Bonjour.
À tout hasard essayez en typant As Variant les tableaux impliqués au lieu de As Double.
Excel est en effet parfois un peu difficile avec ça, surtout si on lui demande d'en produire.
C'est donc surtout C_i qui ne va pas, à mon avis, parce que les WorksheetFunction retournent un Variant contenant un tableau d'éléments également Variant.

 

[Johan_25]

Bonjour Dranreb

Oui j'ai déjà essayé, lorsque je met mat_A / mat_B et C_i en variant. C'est à présent le calcul précédent c'est à dire l'inversion de la matrice mat_A qui ne fonctionne pas avec le même message.
Lorsque je laisse mat_A en double et les autres en variant : message d'erreur est toujours sur MMult.

Cdlt

 

[Dranreb]

Vérifiez aussi WorksheetFunction.MDeterm(Mat)

 

[Johan_25]

Si votre question implicite c'est de savoir si le determinant de la matrice mat_A est nul, je vous répond que non :

1) lorsque je fais le calcul dans les feuilles excel ça marche.
2) De plus en VBA j'arrive à juste inverser la matrice Mat_A
3) Enfin, après test de votre fonction le déterminant est bien <>de 0

 

[Dranreb]

Alors je ne sais pas. Examinez, par des espions, en débogage, toutes les expressions impliquées.

 

[Johan_25]

Je crois que cela sort de mes champs de compétences

 

[Dranreb]

C'est Alt+DU pour ajouter un espion.
Sélectionnez de préférence une expression dans le code au préalable.

 

[Johan_25]

Oui mais je met quoi en espion ? Et a quel moment je regarde sa valeur ?
Dsl je ne connais vraiment pas ce procédé ^^

 

[Johan_25]

J'utilise des STOP et je regarde ce que fait la fonction pas après pas (F8) mais dès que j'arrive sur MMult j'ai le droit à ce message d'erreur.

 

[Dranreb]

Vous y mettez l'expression dont vous voulez examiner la valeur dans la fenêtre Espions au moment du plantage.

 

[Johan_25]

Oui en gros c'est ce que j'ai déjà fait.
Ce que je n'arrive pas à comprendre c'est que lorsque je viens écrire mes matrices sur une feuille excel, cela marche .. Mais pas dans ma feuille VBA et je souhaite avoir un maximum d'automatisation sans passer par la feuille active. Je le ferai si je n'ai pas le choix mais je souhaite faire fonctionner MMult..

 

[Dranreb]

Moi j'arrive à faire fonctionner MMult dans mes macros.