Discussion :

[tuytuy]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Theze]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.