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
| A | B | C | D | E | |
|---|---|---|---|---|---|
| 1 | 01/02/2019 | ||||
| 2 | 29/04/2019 | ||||
| 3 | 25/07/2019 | ||||
| 4 | 20/10/2019 | ||||
| 5 | 16/01/2020 |
Le résultat
| A | B | C | D | E | |
|---|---|---|---|---|---|
| 1 | 01/02/2019 | 2019 | |||
| 2 | 29/04/2019 | 2019 | |||
| 3 | 25/07/2019 | 2019 | |||
| 4 | 20/10/2019 | 2019 | |||
| 5 | 16/01/2020 | 2020 |