1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Dim DateDebut As Date, DateFin As Date
Dim x As Integer, Resultat As Integer
Dim Ws As Worksheet
Dim Cell As Range
'Spécifie les dates de début et de fin à contrôler
DateDebut = #9/1/2006# ' /!\ Attention au format: mm/jj/aaaa
DateFin = #9/4/2006# ' /!\ Attention au format: mm/jj/aaaa
'Specifie la feuille contenant les données
Set Ws = Sheets("Feuil1")
'recherche la derniere cellule non vide dans la colonneB
'(qui contient les dates)
x = Ws.Range("B65536").End(xlUp).Row
'boucle sur les cellules pour verifier compter les dates contenues
'dans la palge
For Each Cell In Ws.Range("B2:B" & x)
If Cell >= DateDebut And Cell <= DateFin Then _
Resultat = Resultat + 1
Next Cell
MsgBox Resultat |
Partager