Utilisation d'INVERSEMAT en VBA
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:
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 :
Citation:
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. :ccool:
Edit : il s'agit d'Excel 2007 si cela a une importance !
