Discussion :

[Sogestion]

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 :

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
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

[Daniel.C]

Bonjour,

Modifie les lignes suivantes :

Code :

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

1
2
3
Dim LaDate As Integer
LaDate = Range("B14")*1
Range("D14") = Application.SumIf(Donnees.Columns(1), "<" & LaDate, Donnees.Columns(3))

Au temps pour moi (ça m'apprendra à poster avant de tester :

Code :

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

Dim LaDate As Long

[Sogestion]

Merci Daniel

_____________________
Bien cordialement

Albert