incrémentation date

[phileas]

je souhaite créer une macro dont chaque exécution permet d'incrémenter une date en fonction d'une date de départ et de fin défini à l avance.

ci joint un fichier pour plus de clarté
la macro ne fait qu insérer la date de départ

merci de vos conseils

 

[Hervé]

Bonjour phileas, le forum

On n'a pas vu ta pièce jointe

en attendant : ce type de code, renvoi dans la colonne A, toutes les dates du 15/09 au 30/09.

Sub Bouton1_QuandClic()
Dim i As Date
Dim l As Integer

l = 1

For i = CDate('15/09/05') To CDate('30/09/05')
    Cells(l, 1) = CDate(i)
    l = l + 1
Next i

End Sub

salut

 

[phileas]

Bonjour

Merci.
Je joins un nouveau fichier.
En fait je souhaite qu à chaque fois que j'utlise le bouton cela insère la date qui suit la précédente.
Si tu vous avez une idée..

a+

 

[Hervé]

bonjour philéas, le forum

Toujours pas de pièce jointe

Ce type de code copie à la fin de la colonne A, la derniere date de la colonne, incrémenté de 1 jour

Sub Bouton1_QuandClic()
With Range('a65536').End(xlUp)
.Offset(1, 0) = .Rows + 1
End With
End Sub

salut

Message édité par: Hervé, à: 04/10/2005 13:06