Hello,

Pourriez-vous m'expliquer comment utliser "Application.SumProduct" s'il vous plaît ?

Car j'ai le message d'erreur suivant : Incompatibilité de type

J'ai lu l'aide en ligne mais je ne comprends que la moitié des explications

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim dte1 As Long, dte2 As Long
 
dte1 = InputBox("Date de début :")
dte2 = InputBox("Date de fin :")
 
Dim tabP As Variant, tabB As Variant, tabC As Variant
 
tabP = Array(1, 2, 3, 4, 5, 6)
 
tabB = Range("b2:b65536")
 
tabC = Range("c2:c65536")
 
Range("h2") = Application.SumProduct((tabC = tabP(1)) * (tabB >= dte1) * (tabB <= dte2))
Merci par avance