Bonjour,
voila mon algorithme.
mais je veux afficher le produit dans la feuil excel.
Option Explicit
'projet methode numerique
Function Prod(M As udtMatrice) As Double
Dim i As Integer
Prod = 1
For i = 0 To M.NbrCol - 1
Prod = Prod * M.coef(i, i)
Next i
MsgBox ("le produit des termes diagonaux" & Prod)
End Function
Sub Produit33()
Dim M As udtMatrice
M.NbrCol = InputBox(" le nombre de colonne")
M.Nom = InputBox("quel est le nom de la matrice")
M = InitMat(M.NbrCol, M.NbrCol, M.Nom)
Call Prod(M)
Call dispmat(M)
Call writemat("feuil1", 1, 1, M)