Problème avec la fonction SumIf et condition Dates

Bonjour a Tous,

J'ai un problème sur une procédure utlisant la fonction < sumIf >

Je souhaiterais pouvoit faire la somme de montants compris entre deux dates

Le tableau de 3 colonnes se présente comme suit

Dates - Vendeurs - Montants

La colonne Dates est formatée - de Catégorie: Date - Type : 14/03/2001

Voici mon code de test

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub Essai_Dates() Dim Date1 As Long, Date2 As Long Dim dDate As Date Dim Donnees As Range Dim CA As Double   dDate = "15/03/12" Date1 = dDate   dDate = "30/06/12" Date2 = dDate   MsgBox Date1 & " - " & Date2   '* Plage des données Set Donnees = Range("B2:D" & [B2].End(xlDown).Row)   MsgBox ">=" & Date1 And "<=" & Date2   CA = Application.SumIf(Donnees.Columns(1), ">=" & Date1 And "<=" & Date2, Donnees.Columns(3))   MsgBox CA   '* Libère mémoire Set Donnees = Nothing   End Sub

---

Code qui me renvoie

- Erreur d'exécution 13
- Incompatibilité de Type

sur l'expression : ">=" & Date1 And "<=" & Date2

D'avance merci de votre aide

____________________
Bien cordialement

Albert

Est ce que tu peux écrire sur Excel ce qui suit?

Code:

---

=SOMME.SI(B2:B100; ET(>=40983;<=41090);D2:D100)

---

Pour ton cas utilise plutôt SOMMEPROD

Code:

---

=SOMMEPROD((B2:B100>= 40983) * (B2:B100<= 41090) * (D2:D100))

---

En VBA

Code:

---

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

Sub Essai_Dates() Dim Date1 As Long, Date2 As Long Dim LastLig As Long Dim CA As Double   Date1 = DateSerial(2012, 3, 15) Date2 = DateSerial(2012, 6, 30) With Worksheets("Feuil1") ' A adpter LastLig = .Cells(.Rows.Count, "B").End(xlUp).Row CA = Evaluate("SUMPRODUCT(('" & .Name & "'!B2:B" & LastLig & ">=" & Date1 & ")*('" & .Name & "'!B2:B" & LastLig & "<=" & Date2 & ")*('" & .Name & "'!D2:D" & LastLig & "))") MsgBox CA End With End Sub

---

Bonsoir Mercator

Merci pour ces codes :ccool:

Code:

---

=SOMMEPROD((B2:B100>= 40983) * (B2:B100<= 41090) * (D2:D100))

---

mais c'est le code VBA qui m'intéresse plus particulièrement mais que dans un
premier temps je vais essayer d"abord de l'analyser et le comprendre

Merci encore de ton aide

_______________________

Bien Cordialement et bonne soirée

Albert

La formule a été donnée pour comprendre le code d'après car elle y est utilisée.

Bonjour,
Avec deux critères , il vaut mieux passer sans doute par SOMMEPROD (voir les messages de mercatog) mais si on veut utiliser SOMME.SI et à condition d'être sous Excel 2007 ou 2010,
on peut utiliser l'équivalent sous VBA de SOMME.SI.ENS. c'est à dire SumIfs et remplacer dans le code initial la ligne 20 par :

Code:

---

CA = Application.SumIfs(Donnees.Columns(3), Donnees.Columns(1), ">=" & Date1, Donnees.Columns(1), "<=" & Date2)

---

et sans doute aussi, écrire pour la ligne 18 :

Code:

---

MsgBox ">=" & Date1 & "<=" & Date2

---

ou

Code:

---

MsgBox ">=" & Date1 & "And " & "<=" & Date2

---

Pour le message d'erreur avec le code initial , il est normal que le langage n'apprécice pas l'emploi d' un opérateur logique (AND) entre deux chaines de caractères
Cordialement
Claude

Bonjour Claude

Merci pour ce code :ccool:

que je viens d'adapter avec une condition supplémentaire
< Nom du Vendeur > pour obtenir le CA du vendeur dans une période donnée

Code:

---

1 2	CA = Application.SumIfs(Donnees.Columns(3), Donnees.Columns(1), ">=" & Date1, Donnees.Columns(1), "<=" & Date2, Donnees.Columns(2), Vendeur)

---

code qui me retourne le montant correct

J'ai essayé d'adapter également le code de Mercator mais sans succès

Code:

---

1 2	[CA] = Evaluate("SUMPRODUCT((" & ColDate.Address & ">=" & Date_1 & ")*(" & ColDate.Address & "<=" & Date_2 & ")*(" & ColVD.Address & "=" & Vendeur & ")*(" & ColMvts.Address & "))")

---

alors que lcette formule dans excel donne le résultat escompte

Code:

---

1 2	=SOMMEPROD((B3:B33>= 40983) * (B3:B33<= 41090) *(C3:C33=L7)* (D3:D33))

---

Encore merci et bon WE
_____________________

Cordialement

Albert