VBA DateSerial() : créer une date à partir de 3 valeurs

La fonction DateSerial permet de réaliser une macro pour créer une date à partir de trois valeurs : année, mois et jour.

La fonction DateSerial

La fonction VBA DateSerial suit la syntaxe suivante :

DateSerial(annee,mois,jour)

où :

• annee est un nombre entier représentant l'année
• mois un nombre entier représentant le mois
• jour est un nombre entier représentant le jour

Exemple de macro avec DateSerial

La macro

Sub macro()

Dim col_annee, col_mois, col_jour 'Variables

Dim i As Integer

col_jour = 1 'colonne A contenant le jour
col_mois = 2 'colonne B contenant le mois
col_annee = 3 'colonne C contenant l'année

For i = 1 To 5

ActiveCell.Offset(0, 0).FormulaR1C1 = _
DateSerial(Cells(i, col_annee), Cells(i, col_mois), Cells(i, col_jour)) ActiveCell.Offset(1, 0).Select

Next i End Sub

Les données sources

Le résultat

Articles similaires

• VBA Minute() : macro pour extraire la minute de l’heure (2)
• VBA Hour() : macro pour extraire l’heure du jour (2)
• VBA Time : indiquer l’heure actuelle (2)
• VBA Date : renvoyer la date du jour (2)
• VBA DatePart() : macro pour extraire une partie spécifique d’une date (2)
• VBA Year() : macro pour extraire l’année (2)
• VBA Weekday() : macro pour extraire le jour de la semaine (2)
• VBA WeekdayName() : macro pour extraire le jour de la semaine (2)
• VBA MonthName() : renvoyer le nom du mois (2)
• VBA DateAdd() : ajouter un intervalle de temps à une date (2)