Probleme fonction SumIf avec des dates
Bonjour
J'ai un problème avec la fonction SumIf qui ne donne pas le résultat
lorsqu'il s'agit de traiter des données de type date
Les données sont dans un tableau de 3 colonnes
Dates - Vendeurs - Qté
Tableau des données B2 a D12
Format de la colonne Dates : Catégorie : Date - Type : 14/03/2001
Les dates s'échelonnent du 15/02/2012 au 30/06/12
Je souhaiterais obtenir le total des Qté avant la date reprise dans
la cellule B14 < au format date > : 31/03/12
mon code me donne le résultat 0 au lieu de 205
Par contre le résultat du total des Qté pour un Vendeur donné est correcte
Voici mon code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Sub Essai()
Dim Donnees As Range
Dim LaDate As Date
Dim Vendeur As String
'* Initialiser Tableau des données
Set Donnees = [B2:D12]
'* Total des Qté pour date inférieure a < B14 > soit 31/03/12
LaDate = CDate(Range("B14"))
Range("D14") = Application.SumIf(Donnees.Columns(1), "<" & LaDate, Donnees.Columns(3))
'* Total des Qté pour pour le vendeur [B15] : = Michel
Vendeur = [B15]
Range("D15") = Application.SumIf(Donnees.Columns(2), "=" & Vendeur, Donnees.Columns(3))
'* Libère mémoire
Set Donnees = Nothing
End Sub |
D'avance merci de votre aide
Cordialement
