Comment utiliser la fonction DateSerial dans VBA (avec exemple)

Vous pouvez utiliser la fonction DateSerial dans VBA pour renvoyer une date pour un jour, un mois et une année spécifiques.

Voici une manière courante d’utiliser cette fonction dans la pratique :

Sub UseDateSerial()
    
Dim i As Integer

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

Cette macro particulière renverra les valeurs de date dans la plage D2: D13 en utilisant les valeurs de l’année dans la colonne C, les valeurs du mois dans la colonne B et les valeurs du jour dans la colonne A.

L’exemple suivant montre comment utiliser la fonction DateSerial dans la pratique.

Exemple : comment utiliser la fonction DateSerial dans VBA

Supposons que nous ayons les colonnes suivantes dans Excel qui affichent le jour, le mois et l’année pour différentes dates :

Supposons que nous souhaitions afficher les valeurs de date dans la colonne D, en utilisant les valeurs du jour, du mois et de l’année dans chaque ligne.

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

Sub UseDateSerial()
    
Dim i As Integer

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

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

La colonne D affiche la valeur de date résultant de l’utilisation des valeurs de jour, de mois et d’année des colonnes A, B et C, respectivement.

Remarque : Vous pouvez trouver la documentation complète de la fonction VBA DateSerial ici .

Ressources additionnelles

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

Comment comparer les dates dans VBA
Comment convertir la date en numéro de semaine dans VBA
Comment calculer les jours entre deux dates en VBA