Lister une série de dates incrémentées [Résolu] - Forum VB / VBA

A voir également:Lister une série de dates incrémentéesConvertir numéro de série en date excel ✓ - Forum - Excel Série animé datant des années 90-2000 ✓ - Forum - Cinéma / Télé Détermination automatique une série de dates ds calendrier excel ✓ - Forum - Bureautique Incrémentation d'une série de dates ✓ - Forum - Excel Extraire et copier les données d'une liste fonction d'une date ✓ - Forum - Excel

Bonjour, je cherche un moyen de lister dans une colonne une série de dates incrémentées par rapport à une date de début et une date de fin.

Voici mon exemple :
La cellule A1 contient la date de début : par exemple "01/01/2018"
La cellule A2 contient la date de fin : par exemple le "10/01/2018"
Dans la colonne B, je voudrais afficher 01/01/2018, 02/01/2018, 03/01/2018, 04/01/2018, ... jusqu'au 10/01/2018.

Je ne sais pas comment m'y prendre. J'ai déjà penser à faire le calcul entre les 2 dates pour obtenir le nombre de cellule nécessaire pour incrémenter les dates dans la colonne B, mais cela ne marche pas comme je veux.
=JOURS(A2;A1) -> Calcul le nbre de jours entre la date de fin et la date de début, soit 9 jours.
Ensuite je me met en B1, je met la date de début (01/01/2018) et je "tire" cette date vers le bas en comptant 9 cellules + 1. Ce qui me fait 10 cellules en tout. Mais je ne trouve pas de formule pour "tirer" cette date + 9 cellules.

Merci de votre aide.

Forum

A voir également:Lister une série de dates incrémentéesConvertir numéro de série en date excel ✓ - Forum - Excel Série animé datant des années 90-2000 ✓ - Forum - Cinéma / Télé Détermination automatique une série de dates ds calendrier excel ✓ - Forum - Bureautique Incrémentation d'une série de dates ✓ - Forum - Excel Extraire et copier les données d'une liste fonction d'une date ✓ - Forum - Excel

Web: www.shapebootstrap.net

1 réponse

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

Bon j'ai trouvé une petite astuce/

Je partage ma réponse avec une petite macro :

Sub Macro1()

Dim date1 As Date, date2 As Date

date1 = Range("A1").Value
date2 = Range("A2").Value


For i = 0 To (date2 - date1)
Range("B" & (1 + i)).Value = date1 + i
Next

End Sub

Voilà.

Reply

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed