Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Calcul de determinant en VBA

Calcul de determinant en VBA

2 réponses
Avatar
pascalv
Je souhaite calculer un determinant en VBA. Aucune de ces 2 ligne ne
fonctionne:

Cells(2, 1) = Application.WorksheetFunction.MDeterm(1)
Cells(2, 1) = Application.WorksheetFunction.determat(1)

J'ai bien noté DETERMAT.EXT sur http://longre.free.fr/, mais si elles
marchent, les fobctions Excel doivent me suffire. Je precise que
DETERMAT fonctionne quand je l'appelle depuis une feuille de calcul

Merci d'avance si quelqu'un a une solution

Pascal
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
FxM
Bonsoir,

En triturant un peu ce que dit l'enregistreur de macro ...
(plage à adapter)

Sub Macro1()
ActiveCell.Formula = "=MDETERM(C6:D7)"
End Sub

@+
FxM


pascalv a écrit:

Je souhaite calculer un determinant en VBA. Aucune de ces 2 ligne ne
fonctionne:

Cells(2, 1) = Application.WorksheetFunction.MDeterm(1)
Cells(2, 1) = Application.WorksheetFunction.determat(1)

J'ai bien noté DETERMAT.EXT sur http://longre.free.fr/, mais si elles
marchent, les fobctions Excel doivent me suffire. Je precise que
DETERMAT fonctionne quand je l'appelle depuis une feuille de calcul

Merci d'avance si quelqu'un a une solution

Pascal


Avatar
AV
Passe par la méthode Evaluate :
Exemples :

Sub zz_MdeterM()
Cells(1, 4) = [mdeterm(1)]
Cells(2, 4) = [mdeterm({1,2,1;4,5,0;7,4,1})]
Cells(3, 4) = [mdeterm(A1:B2)]
var1 = 1
var2 = 2
Cells(4, 4) = Evaluate("mdeterm(A" & var1 & ":B" & var2 & ")")
End Sub

AV