VBA DatePart() : macro pour extraire une partie spécifique d'une date

La fonction DatePart permet de réaliser une macro pour extraire l'élément spécifié d'une date donnée dans Excel.

La fonction DatePart

La fonction VBA DatePart suit la syntaxe suivante :

DatePart(intervalle, Date, premier_jour, premiere_sem)

où :

  • intervalle correspond à l'intervalle de temps à renvoyer et peut prendre l'une des valeurs suivantes :
    • yyyy : Année
    • q : Trimestre
    • m : Mois
    • y : Jour de l’année
    • d : Jour
    • w : Jour de la semaine
    • ww : Semaine
    • h : Heure
    • n : Minute

Exemple de macro avec DatePart

La macro

Sub macro()

Dim c As Range 'Variable

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

ActiveCell.Offset(0, 0).FormulaR1C1 = _
DatePart("yyyy", 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/20192019
229/04/20192019
325/07/20192019
420/10/20192019
516/01/20202020