Discussion :

[Rakanishu]

Bonjour,

J'ai besoin d'inverser des matrices dans mon code VBA pour résoudre un système linéaire de 7 équations.
Je voulais donc définir ma matrice M correspondant au système considéré puis utiliser la fonction INVERSEMAT d'Excel directement en VBA.

J'ai donc défini :

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
Dim Matrice As Long
ReDim Matrice(6,6)
 
Dim Matrice_Inverse As Long
ReDim Matrice_Inverse(6,6)
 
Matrice(0,0) = 1
Matrice(1,1) = 1
Matrice(2,2) = 1
Matrice(3,3) = 1
Matrice(4,4) = 1
Matrice(5,5) = 1
Matrice(6,6) = 1
 
Matrice_Inverse = Application.WorksheetFunction.INVERSEMAT(Matrice)

J'ai pris ici l'exemple de la matrice identité pour simplifier. J'obtiens une erreur :

Erreur d'exécution 438 : Propriété ou méthode non gérée par cet objet

J'ai vu dans d'autres codes des gens utiliser la fonction MInverse (que je ne connais pas ?). Le problème vient peut être d'une incompatibilité de type (la manip est un peu particulière pour utiliser INVERSEMAT dans Excel) ou d'une mauvaise manipulation de la fonction...

Merci pour votre aide et bonne fin de journée.

Edit : il s'agit d'Excel 2007 si cela a une importance !

[Rakanishu]

Update : problème résolu.

Apparemment la fonction INVERSEMAT présente dans Excel s'appelle MInverse dans le module VBA ; je ne savais pas que les noms pouvaient être différents.
En regardant de plus près les autres codes que j'avais trouvés par recherche, je viens de m'en apercevoir.

Le topic est clos, merci et bonne journée.

[fring]

je ne savais pas que les noms pouvaient être différents

Bonjour,

Pour info, les noms ne sont pas différents, INVERSEMAT est la traduction française (langue de ton Excel) de MINVERSE (fonction en anglais)

Ou trouver la traduction des fonctions Excel ?