Object required erreur avec sum if macro

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

'copy COST OF NON BLACKBERRY DATA NATIONAL   TotalIN = 0 ActiveWorkbook.Sheets("Section_14").Activate Dim cstnbbItem As Variant Tete = Array("Mobile Internet", _ "Internet On GSM") For Each cstnbbItem In Tete cstnbbmn = cstnbbmn + WorksheetFunction.SumIfs(Range("K$3:K$1048576"), cstnbbItem, WorksheetFunction.If(Range("N$3:N$1048576"), "GPRS national"), Range("J$3:J$1048576")) Next ActiveWorkbook.Sheets("SynthesisVSD").Activate Range("A29").Value = "Cost of Non BlackBerry handset National data consumption:" Range("B29").Value = cstnbbmn

---

Bonjours,
Voici le code que j'ai écrit mais quand j'essay de l'éxécuter je recoi une erreure Object required et je ne sais pas pourquoi.
J'essay d'additionner des valeur sous deux condition.

Bonjour,

Ta formule est fausse, elle doit être construite de la façon suivante :

Code:

---

1 2	WorksheetFunction.SumIfs(Range à Additionner si, Range pour Critère1, Critère1,[Range pour Critère2], [Critère2]) Entre crochets > optionnel

---

je dirai alors de faire comme si dessous mais si c'est ce que tu veux :

Code:

---

1 2 3

' | ici range à sommer |,|ici le range critère1|,| ici critère1 |,|ici le range critère2|,|ici critère2| cstnbbmn = cstnbbmn + WorksheetFunction.SumIfs(Range("K$3:K$1048576"), Range("N$3:N$1048576"), "GPRS national", Range("J$3:J$1048576"), cstnbbItem)

---

Hervé.