Formule matricielle en VBA

Bonsoir,

Dans le fichier ci-joint, je place - à l’aide de ma macro ci-dessous - une formule en D1. A l’aide d’une formule VBA, j’ai le même résultat en D2.

En D3, je place une formule matricielle. Savez-vous comment – à l’instar de ma formule ‘’normale’’ - je pourrais placer directement, à l’aide d’un code VBA, le résultat de ma formule matricielle en D4 ?

Sub Démo()

Range("D1").FormulaR1C1 = "=SUM(RC[-3]:RC[-1])"
Range("D2") = WorksheetFunction.Sum(Range("A2:C2"))

Range("D3").FormulaArray = "=SUM(ABS(RC[-3]:RC[-1]))"
' Range("D4") ??????????????????????????

End Sub

Cordialement.

Bonsoir.

Un Essai.

Cordialement.

Bonjour,

Range("D4") = Evaluate("SUMPRODUCT(ABS(A4:C4))")

Cordialement.

Bonjour à tous deux,

@ AYARI Moncef

Ta solution n'est pas tout à fait ce que je demandais

@ MFerrand

Super, exactement ce dont j'avais besoin

Un tout grand merci à vous deux.

Amicalement.