Bonjour,

Dans une cellule j'ai une date entrée. Je la récupère donc à l'aide de :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
an = 0
an = Range("D3").Value
Une fois stockée je l'écris dans une autre case ici en ne sélectionnant que l'année :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveCell.FormulaR1C1 = Year(an)
Par contre pour l'incrémenter je n'y arrive pas! L'écriture de la date dans la case se fait dans une boucle puisque je peux avoir x lignes, chaque ligne étant l'année suivante.

Merci d'avance. Cordialement.