Discussion :

[Sogestion]

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 :

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

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

[mercatog]

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

Code :

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

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

Pour ton cas utilise plutôt SOMMEPROD

Code :

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

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

En VBA

Code :

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

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

[Sogestion]

Bonsoir Mercator

Merci pour ces codes

Code :

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

=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

[mercatog]

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

[papouclo]

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 :

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

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

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

Code :

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

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

ou

Code :

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

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

[Sogestion]

Bonjour Claude

Merci pour ce code

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 :

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

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 :

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

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 :

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

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

Encore merci et bon WE
_____________________

Cordialement

Albert