La fonction VBA Year() permet d'extraire l'année d'une cellule contenant une date.
La fonction VBA Year()
La fonction Year() suit la syntaxe suivante :
Year(date)
Exemple de macro avec la fonction Year()
La macro
Sub macro()
Dim c As Range 'Variable
For Each c In Range("A1:A5") 'Colonne
ActiveCell.Offset(0, 0).FormulaR1C1 = _
Year(c)ActiveCell.Offset(1, 0).Select
Next c
End Sub
Les données sources
A | B | C | D | |
---|---|---|---|---|
1 | 01/02/2015 | |||
2 | 01/02/2016 | |||
3 | 01/02/2017 | |||
4 | 01/02/2018 | |||
5 | 01/02/2019 |
Le résultat
A | B | C | D | |
---|---|---|---|---|
1 | 01/02/2015 | 2015 | ||
2 | 01/02/2016 | 2016 | ||
3 | 01/02/2017 | 2017 | ||
4 | 01/02/2018 | 2018 | ||
5 | 01/02/2019 | 2019 |