Inversion de matrice sous VBA - VB/VBA/VBS - Programmation
Marsh Posté le 17-01-2008 à 16:35:11
C'est pour Excel je suppose ?
- Est-ce que tu déclares bien MatriceDate et MatDateInv en tant que Arrays ? (Si tu ne travailles pas en Option Explicit, je te le conseille vivement! )
- Est-ce que tu n'as pas de cellule vide ?
- S'il y a des références internes à la matrice, dans une des cellule, cela provoquera à coup sûr des erreurs ..
Tu peux fournir la manière dont tu remplis MatriceDate aussi ?
Marsh Posté le 17-01-2008 à 16:57:33
c'est un programme VBA pour faire une fonction que j'utilise sous excel
Dim MatriceDate(4, 4)
Dim MatDateInv as variant
MatriceDate(1, 1) = CDbl(TabMat(j - 2) ^ 3)
MatriceDate(1, 2) = TabMat(j - 2) ^ 2
MatriceDate(1, 3) = CDbl(TabMat(j - 2))
MatriceDate(1, 4) = 1
MatriceDate(2, 1) = CDbl(TabMat(j - 1) ^ 3)
MatriceDate(2, 2) = TabMat(j - 1) ^ 2
MatriceDate(2, 3) = CDbl(TabMat(j - 1))
MatriceDate(2, 4) = 1
MatriceDate(3, 1) = CDbl(TabMat(j) ^ 3)
MatriceDate(3, 2) = TabMat(j) ^ 2
MatriceDate(3, 3) = CDbl(TabMat(j))
MatriceDate(3, 4) = 1
MatriceDate(4, 1) = CDbl(TabMat(j + 1) ^ 3)
MatriceDate(4, 2) = TabMat(j + 1) ^ 2
MatriceDate(4, 3) = CDbl(TabMat(j + 1))
MatriceDate(4, 4) = 1
MatDateInv = Application.WorksheetFunction.MInverse(MatriceDate)
je n'ai pas de cellule vide dans MatriceDate
je suis en option explicit
merci beaucoup
Marsh Posté le 17-01-2008 à 16:23:56
Bonjour, je veux inverser une matrice (4, 4) en VBA
pour ce faire j'utilise MatDateInv = Application.WorksheetFunction.MInverse(MatriceDate)
avec MatriceDate un tableau (4,4), seulement ca bug et mon programme s'arrete,
quelqu'un connait il une solution alternative ou comment je peux fixer ce bug?
merci pour votre aide
P