Comment lister toutes les dates comprises entre deux dates dans Excel ?
Dans certains cas, lorsque vous disposez d’une date de début et d’une date de fin précises, vous devrez peut-être lister toutes les dates comprises entre ces deux dates dans Excel. Ce tutoriel présente plusieurs méthodes efficaces pour générer automatiquement cette liste d’intervalles de dates.
Lister toutes les dates comprises entre deux dates à l’aide de formules
Lister toutes les dates comprises entre deux dates avec Kutools pour Excel 
Lister toutes les dates comprises entre deux dates à l’aide de VBA
Lister toutes les dates comprises entre deux dates à l’aide de formules
Découvrez ici des formules Excel pour lister instantanément toutes les dates comprises entre deux dates données.
1. Saisissez la date de début et la date de fin dans deux cellules ; ici, je les entre dans les cellules A1 et A2. Voir la capture d’écran :
2. Ensuite, accédez à la cellule C1, saisissez-y la formule =A1+1, puis appuyez sur la touche Entrée. Voir la capture d’écran :
3. Ensuite, saisissez cette formule dans la cellule C2 : =IF($A$1+ROW(A1)>=$A$2-1,«»,C1+1), puis faites glisser la poignée de recopie vers le bas jusqu’à ce qu’une cellule vide apparaisse. Voir les captures d’écran :
Vous constaterez alors que toutes les dates comprises entre les deux dates indiquées figurent dans la colonne.
Remarque :
Dans les formules ci-dessus, A1 correspond à la date de début, A2 à la date de fin et C1 à la première date de la plage de dates.
Lister toutes les dates comprises entre deux dates avec Kutools pour Excel
En réalité, si vous avez installé Kutools pour Excel – un complément pratique –, vous pouvez également utiliser la fonction Insérer des données aléatoires pour résoudre ce problème.
Après avoir installé gratuitementKutools pour Excel, procédez comme suit :
1. Sélectionnez une colonne dans laquelle vous souhaitez lister les dates comprises entre deux dates, puis cliquez sur Kutools > Insérer > Insérer des données aléatoires. Voir la capture d’écran :
2. Ensuite, dans la boîte de dialogue Insérer des données aléatoires, cliquez sur l’onglet Date, sélectionnez la date de début et la date de fin dans les champs De et À, puis cochez les cases Jours ouvrés, Week-ends et Valeurs uniques. Voir la capture d’écran :
3. Cliquez sur OK pour fermer la boîte de dialogue ; une autre boîte de dialogue Kutools pour Excel s’ouvre alors : cliquez simplement sur Oui. Vous verrez alors apparaître les dates comprises entre la date de début et la date de fin. Voir les captures d’écran :
4. Vous devez maintenant trier la liste de dates selon l’ordre souhaité. Cliquez sur Données > Trier du plus ancien au plus récent. Les dates seront alors triées de la plus ancienne à la plus récente. Voir les captures d’écran :
Grâce à l’utilitaire Insérer des données aléatoires, vous pouvez également insérer des nombres entiers aléatoires, des chaînes de caractères aléatoires, des heures aléatoires, etc.Cliquez ici pour en savoir plus sur Insérer des données aléatoires.
Lister toutes les dates comprises entre deux dates à l’aide de VBA
Si les macros vous intéressent, utilisez le code VBA ci-dessous pour lister toutes les dates comprises entre deux dates données dans Excel.
1. Saisissez la date de début et la date de fin dans deux cellules distinctes ; ici, elles sont entrées dans les cellules A1 et B1. Voir la capture d’écran :
2. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
3. Cliquez ensuite sur Insertion > Module, puis copiez-collez le code VBA ci-dessous dans la fenêtre Module qui s’ouvre.
VBA : Lister toutes les dates comprises entre deux dates.
Sub WriteDates()
'Updateby20150305
Dim rng As Range
Dim StartRng As Range
Dim EndRng As Range
Dim OutRng As Range
Dim StartValue As Variant
Dim EndValue As Variant
xTitleId = "KutoolsforExcel"
Set StartRng = Application.Selection
Set StartRng = Application.InputBox("Start Range (single cell):", xTitleId, StartRng.Address, Type: = 8)
Set EndRng = Application.InputBox("End Range (single cell):", xTitleId, Type: = 8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
Set OutRng = OutRng.Range("A1")
StartValue = StartRng.Range("A1").Value
EndValue = EndRng.Range("A1").Value
If EndValue - StartValue <= 0 Then
Exit Sub
End If
ColIndex = 0
For i = StartValue To EndValue
OutRng.Offset(ColIndex, 0) = i
ColIndex = ColIndex + 1
Next
End Sub4. Cliquez sur Exécuter ou sur F5 pour exécuter la macro VBA. Une boîte de dialogue s’ouvre alors afin que vous sélectionniez la date de début ; cliquez ensuite sur OK, puis sélectionnez la date de fin dans la deuxième boîte de dialogue qui apparaît. Voir la capture d’écran :
5. Cliquez sur OK, puis sélectionnez une cellule où afficher les dates et cliquez de nouveau sur OK. Toutes les dates comprises entre les deux dates spécifiées s’affichent alors. Voir les captures d’écran :
Remarque : La liste générée par ce code VBA inclut à la fois la date de début et la date de fin.
Lister toutes les dates comprises entre deux dates
Articles associés :
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels