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