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.