incrémentation de date

[Reeaz]

Bonjour,
j'écris une proc qui me permet d'incrémenter des dates (mensuelles ou annulelles à partir d'une première date.
Cependant je voudrai que l'incrémentation s'arrête au niveau de la dernière cellule remplie de la colonne qui est à coté.

J'ai d'abord essayé ca, mais yf=31 est mon pas mensuel. Mais, je tombe pas sur un calendrier correct car à force, il y a trop de décalages, surtout lorsqu'il ya bcoup de dates:

Range("E16").Value = Payment
Remplissage des payments date
fin = Range("c16").End(xlDown).Row 'indique la ligne d'arrêt
For i = 17 To fin
Range("E" & i).Value = Range("E" & (i - 1)).Value + yf
Next i

Par contre, l'utilisation de la méthode autofill, avec p=xfillmonth est mieux car elle gère un vrai calendrier et donc il n'y a pas de décalage.
Par contre, je n'arrive pas à le faire s'arrêter au niveau ou je veux, cad mon fin de la proc précédente:

Range("E16").Value = Payment
Range("E17").Value = Range("E16").Value + yf
Range("E17").Select
Selection.AutoFill Destination:=Range("E17:Efin"), Type:=p


Si qqun sait comment faire, ce serait sympa.
Merci

 

[Alain]

Bonjour,

Essayes de remplacer par :

Selection.AutoFill Destination:=Range("E17", "E" & CStr(fin)), Type:=xlFillMonths

@+

 

[Reeaz]

Merci beaucoup ca marche.