Discussion :

[rom22950]

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 :

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

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!

[mercatog]

Fais une boucle

exemple

Code :

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

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