Je cherche à compter des dates excel

zeb -  
pilas31 Messages postés 1825 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
je cherche à comparer 2 dates la premiere issue d'une boite de dialogue
et la seconde sur une cellule
le filtre fonctionne , mais pas le total

voici ma macro, mais mon total est toujours egal a 0
merci

Sub daterecu()

Dim Message, Titre, ddr, default, réponse

Titre = "Date de réception"
Message = "Entrez la date du début au format jj/mm/aaaa :"

ddr = InputBox(Message, Titre, default)

ddf = ddr

ddr = Format(ddr, "mm/dd/yyyy")
ddf = Format(ddf, "mm/dd/yyyy")

Selection.AutoFilter Field:=4, Criteria1:=">=" & ddr, Criteria2:="<=" & ddf, Operator:=xlAnd

Range("A7:J500").Select

Dim c As Range
total = 0

'compte tous les dossiers
Range("b7:b5000").Select

For Each c In Selection

If c = ddr Then 'ligne qui ne fonctionne pas

total = total + c.Count
End If
Next

Range("g2") = "TOTAL : " & total

End Sub
A voir également:

1 réponse

Réponse 1 / 1
pilas31 Messages postés 1825 Date d'inscription   Statut Contributeur Dernière intervention   646
 
Bonjour,

A priori je pense que le problème vient du typage des variables ddr et ddf qu'il faut typer explicitement comme des dates avec l'instruction suivante :

Dim ddr As Date, ddf As Date

en début de macro. La colonne B doit aussi être typée date

A+
0