Différence de date

Bonjour à tous,

Je souhaite étendre une de mes formules a une plage entière de valeur mais je n'y arrive pas...

En gros j'ai besoin de connaitre la différence entre une date et le nombre de jour qui la sépare de la fin de l'année (pour des calculs d'amortissement linéaire) .

Cependant, j'arrive à le faire pour une cellule, mais je n'arrive pas à l'étendre pour la colonne entière...

Code:

---

1 2 3 4

X = Doc1.Range("H620") Y = DateSerial(Year(X), 12, 31) - X   Doc1.Cells(620, 25).Value = Y

---

Ici cela fonctionne parfaitement pour la date présente en H620, et le résultat est donné en Y620, je voudrai que cela soit le cas pour toute la colonne H et que les résultats arrivent dans toute la colonne Y

Merci d'avance de votre aide!

Fais une boucle

exemple

Code:

---

1 2 3 4 5

Dim i As Long   For i = 620 To 690 If IsDate(Doc1.Range("H" & i)) Then Doc1.Doc1.Range("Y" & i) = DateSerial(Year(X), 12, 31) - Doc1.Range("H" & i) Next i

---

PS. Regarde aussi l'aide sur DateDiff