Catégories
Macro VBA Date Macros VBA

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

Partager :

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

ABCDE
1122019
22942019
32572019
420102019
51612020

Le résultat

ABCDE
112201901/02/2019
2294201929/04/2019
3257201925/07/2019
42010201920/10/2019
5161202016/01/2020