Discussion :

[NeverKevin]

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.

[Invité]

Bonjour,

Pour incrémenter, essayez cette formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.FormulaR1C1 = DateAdd("yyyy", 1, an)

Cordialement.

[NeverKevin]

J'ai un autre soucis maintenant La date de base est par exemple 12/07/2012 et quand je l'écris dans l'autre cellule ca me met 04/07/1905

Pourtant je sélectionne toujours seulement l'année, je suis donc retourné à mon ancienne ligne de code, et toujours le même soucis ! Pas moyen d'avoir 2012 comme auparavant.

Un problème d'initialisation peut-être ?

Cordialement.

[Invité]

Normalement vous devriez avoir ce code dans votre macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim an As Date
 
an = CDate(Activesheet.Range("D3"))
ActiveCell.FormulaR1C1 = Year(DateAdd("yyyy", 1, an))
 
' ou 
' ActiveCell = Year(DateAdd("yyyy", 1, an))

Le résultat devrait donc être 2013

Cordialement.

[Invité]

pour exemple écris 2012 dans une cellule puis pas la au format date et tu verras écris 04/07/1905

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveCell.FormulaR1C1 = Year(DateAdd("yyyy", 1,  CDate(Activesheet.Range("D3"))))
ActiveCell.NumberFormat = "General"

[NeverKevin]

Parfait ! Merci à vous pour votre aide! L'incrémentation fonctionne très bien, il suffisait juste de changer le type de la cellule. J'ai bien mon 2013 qui apparaît !

Merci. Cordialement.