Appliquer un pourcentage au résultat de somme.si.ens sous VBA

Bonjour,

J'aimerai appliquer un pourcentage après avoir utilisé la fonction Somme.Si.Ens mais cela ne fonctionne pas surement à cause d'une erreur de synthax ?

Voici mon code et merci d'avance,

With Worksheets("Budget")
.[B9].Formula = "=SUM(SUMIFS(base!E:E, base!$AC:$AC, 708110), (SUMIFS(base!E:E, base!$AC:$AC, 708810), SUMIFS(base!E:E, base!$AC:$AC, 708880), SUMIFS(base!E:E, base!$AC:$AC, 708888)) * 0.2"
.[B9:M9].FillRight
End With

Léandre

Bonjour,

Problème de Syntaxe, sûrement, c'est quoicette succession de SUMIFS et dont vous finissez par en faire la somme globale?

1 seul SUMIFS (somme.si.ens) devrait suffire.

Range("B9").FormulaR1C1 = "=SUMIFS(base!C5,base!C29,708110,base!C29,708810,base!C29,708880,base!C29,708888)*0.2"

Evitez aussi de prendre les colonnes entières, délimitez la plage de valeurs, exemple: on détermine la dernière ligne de la feuille Base(par rapport à la colonne E)

     DerLig = sheest("Base").Range("E" & Rows.Count).End(xlUp).Row
     Range("B9").FormulaR1C1 = "=SUMIFS(base!R1C5:R" & DerLig & "C5,base!R1C29:R" & DerLig & "C29,708110,base!R1C29:R" & DerLig & "C29,708810,base!R1C29:R" & DerLig & "C29,708880,base!R1C29:R" & DerLig & "C29,708888)*0.2"

Cdlt

Edit, je viens de m'apercevoir après coup que le sujet était déjà marqué "Résolu"

Bonjour,

J'avais demandé comment simplifier cette formule et voici ce que l'on m'avait répondu:

"Bonjour,

Si vous souhaitez faire un OU dans un SOMME.SI.ENS il faut faire une SOMME de SOMME.SI.ENS ou un SOMMEPROD donc en partant sur votre base :

With Worksheets("Budget")
    .[B28].Formula = "=SUM(SUMIFS(base!E:E, base!$AC:$AC, "">=""&311110, base!$AC:$AC, ""<=""&326110), SUMIFS(base!E:E, base!$AC:$AC, "">=""&391110, base!$AC:$AC, ""<=""&392610))"
    .[B28:M28].FillRight
End With " 

Du moment que cela fonctionne, ça me va. Merci pour votre réponse.