Catégories
Macro VBA Date Macros VBA

VBA Year() : macro pour extraire l’année

Partager :

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

 ABCD
1 01/02/2015   
2 01/02/2016   
3 01/02/2017   
4 01/02/2018   
5 01/02/2019   

Le résultat

 ABCD
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