Bonjour, pour vérifier que la fonction minverse calcule bien l'inverse de ma matrice il faut que je l'affiche sur ma feuille excel. Cependant j'ai un problème d'indice, pouvez-vous m'aider svp :
Function Pinv(Angle As Double) As Variant
Dim Matinverse() As Variant
'Calcule de la matrice iverse
Matinverse = Application.MInverse(Range("B2729"))
For i = 1 To 3
For j = 1 To 3
Cells(56 + i, 1 + j) = Matinverse(i - 1, j - 1)
Next j
Next i
Pinv = Matinverse
End Function
Function Pinv(Angle As Double) As Variant
Dim Matinverse() As Variant
'Calcule de la matrice iverse
Matinverse = Application.MInverse(Range("B2729"))
For i = 1 To 3
For j = 1 To 3
Cells(56 + i, 1 + j) = Matinverse(i - 1, j - 1)
Next j
Next i
Pinv = Matinverse
End Function