VBA : Nombre supérieur à la date

Vous pouvez utiliser la syntaxe de base suivante dans VBA pour compter le nombre de dates supérieures à une date spécifique :

Sub CountifGreaterDate()
Range("D2") = WorksheetFunction.CountIf(Range("A2:A10"), ">" & Range("C2"))
End Sub

Cet exemple particulier compte le nombre de dates dans la plage A2:A10 qui sont supérieures à la date dans la cellule C2 .

Le résultat est ensuite affecté à la cellule D2 .

L’exemple suivant montre comment utiliser cette syntaxe dans la pratique.

Exemple : Countif supérieur à la date à l’aide de VBA

Supposons que nous ayons la liste de dates suivante dans Excel et que nous aimerions connaître le nombre de dates supérieures au 25/04/2023 :

Nous pouvons créer la macro suivante pour ce faire :

Sub CountifGreaterDate()
Range("D2") = WorksheetFunction.CountIf(Range("A2:A10"), ">" & Range("C2"))
End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

La cellule D2 nous indique qu’il y a 6 dates dans la plage A2:A10 supérieures au 25/04/2023 .

Notez que nous pouvons modifier la valeur dans la cellule C2 et réexécuter la macro pour compter le nombre de dates supérieures à une date spécifique différente.

Par exemple, supposons que nous modifiions la date dans la cellule C2 en 10/1/2023 et que nous exécutions à nouveau la macro :

On voit qu’il y a 3 dates supérieures au 10/1/2023 .

Remarque : Si vous souhaitez compter le nombre de dates supérieures ou égales à une date spécifique, remplacez simplement le « > » dans la fonction CountIf par « >= » .

Ressources additionnelles

Les didacticiels suivants expliquent comment effectuer d’autres tâches courantes dans VBA :

Comment trier par date dans VBA
Comment additionner si entre deux dates dans VBA
Comment ajouter des jours à ce jour dans VBA