Récupérer une date et l'incrémenter

Bonjour,

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

Code:

---

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:

---

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.

Bonjour,

Pour incrémenter, essayez cette formule :

Code:

---

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

---

Cordialement.

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.

Normalement vous devriez avoir ce code dans votre macro :

Code:

---

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.

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

Code:

---

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

---

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.