VBA DateValue() : convertir une date en valeur

La fonction DateValue permet de réaliser une macro pour stocker une date sous forme de valeur.

La fonction DateValue

La fonction VBA DateValue suit la syntaxe suivante :

DateVal(date)

Exemple de macro avec DateValue

La macro

Sub macro()

Dim c As Range 'Variable

For Each c In Range("A1:A5") 'Plage

ActiveCell.Offset(0, 0).FormulaR1C1 = _
DateValue(c)

ActiveCell.Offset(1, 0).Select

Next c

End Sub

Les données sources

ABCDE
101/02/2019
229/04/2019
325/07/2019
420/10/2019
516/01/2020

Le résultat

ABCDE
101/02/201943497
229/04/201943584
325/07/201943671
420/10/201943758
516/01/202043846