VBA : Comment calculer les jours entre deux dates

Vous pouvez utiliser la syntaxe de base suivante dans VBA pour calculer le nombre de jours entre deux dates :

Sub DaysBetweenDates()

    Dim i As Integer

    For i = 2 To 7
        Range("C" & i) = DateDiff("D", Range("A" & i), Range("B" & i))
    Next i
    
End Sub

Cet exemple particulier calculera le nombre de jours entre les dates dans les cellules correspondantes dans les plages A2:A7 et B2:B7 et renverra les résultats dans la plage C2:C7 .

Notez que l’argument « D » dans la fonction DateDiff spécifie que nous souhaitons calculer la différence de date en termes de jours.

Reportez-vous à la page de documentation VBA pour une liste complète des unités que vous pouvez utiliser pour la différence de date.

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

Exemple : calculer les jours entre les dates dans VBA

Supposons que nous ayons les deux colonnes suivantes avec des dates dans Excel :

Supposons que nous souhaitions calculer le nombre de dates entre la date de début et la date de fin dans chaque ligne et afficher les résultats dans la colonne C.

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

Sub DaysBetweenDates()

    Dim i As Integer

    For i = 2 To 7
        Range("C" & i) = DateDiff("D", Range("A" & i), Range("B" & i))
    Next i
    
End Sub

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

Le nombre de dates entre chaque date de début et chaque date de fin est indiqué dans la colonne C.

Ressources additionnelles

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

Comment comparer les dates dans VBA
Comment filtrer une colonne à l’aide de VBA
Comment trier les valeurs par ordre alphabétique dans VBA