P phileas Guest 29 Septembre 2005 #1 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
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é XLDnaute Barbatruc 30 Septembre 2005 #2 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 Cliquez pour agrandir... salut Vote positif 0 Vote négatif
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 Cliquez pour agrandir... salut
P phileas Guest 4 Octobre 2005 #3 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+ Vote positif 0 Vote négatif
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é XLDnaute Barbatruc 4 Octobre 2005 #4 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 Cliquez pour agrandir... salut Message édité par: Hervé, à: 04/10/2005 13:06 Vote positif 0 Vote négatif
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 Cliquez pour agrandir... salut Message édité par: Hervé, à: 04/10/2005 13:06