Comment lister toutes les dates entre deux dates dans Excel ?
Dans certains cas, si vous avez une date de début et une date de fin spécifiques, vous pourriez avoir besoin de lister toutes les dates entre ces deux dates données dans Excel. Ce tutoriel explique les méthodes pour lister toutes les dates entre deux dates dans Excel.
Lister toutes les dates entre deux dates avec des formules
Lister toutes les dates entre deux dates avec Kutools pour Excel 
Lister toutes les dates entre deux dates avec VBA
Lister toutes les dates entre deux dates avec des formules
Voici des formules qui peuvent rapidement lister toutes les dates entre deux dates données dans Excel.
1. Saisissez les dates de début et de fin dans deux cellules, ici je les saisis dans les cellules A1 et A2. Voir la capture d'écran :
2. Ensuite, allez dans la cellule C1 et saisissez cette formule =A1+1 dedans, puis cliquez sur Entrée touche. Voir la capture d'écran :
3. Ensuite, dans la cellule C2, saisissez cette formule =SI($A$1+LIGNE(A1)>=$A$2-1;"";C1+1) dedans, puis faites glisser la poignée de recopie automatique vers le bas jusqu'à ce qu'une cellule vide apparaisse. Voir les captures d'écran :
Vous pouvez alors voir que toutes les dates entre les deux dates données sont listées dans la colonne.
Remarque :
Dans les formules ci-dessus, A1 est la date de début, A2 est la date de fin, et C1 est la première date parmi la plage de dates.
Lister toutes les dates entre deux dates avec Kutools pour Excel
En réalité, si vous avez installé Kutools pour Excel – un outil complémentaire pratique, vous pouvez également utiliser l'option Insérer des données aléatoires pour résoudre ce problème.
Après avoir installé gratuitement Kutools pour Excel, veuillez procéder comme suit :
1. Sélectionnez une colonne où vous souhaitez lister les dates entre deux dates, puis cliquez sur Kutools > Insérer > Insérer des données aléatoires. Voir la capture d'écran :
2. Puis dans la fenêtre Insérer des données aléatoires cliquez sur Date onglet, puis sélectionnez les dates de début et de fin à partir de la liste De et Àpuis n'oubliez pas de cocher les cases Jour ouvrable, Week-end et Générer des valeurs uniques Voir la capture d'écran :
3. Cliquez sur OK pour fermer la fenêtre, et une autre fenêtre Kutools pour Excel apparaît, cliquez simplement sur Oui. Vous pouvez alors voir que les dates entre la date de début et la date de fin sont listées. Voir les captures d'écran :
4. Maintenant, vous devez trier la liste des dates dans l'ordre souhaité. Cliquez sur Données > Trier du plus ancien au plus récent. Vous pouvez alors voir que les dates sont triées de la plus ancienne à la plus récente. Voir les captures d'écran :
Avec l'utilitaire Insérer des données aléatoires, vous pouvez également insérer des entiers aléatoires, des chaînes de caractères aléatoires et des heures aléatoires, etc. Cliquez ici pour en savoir plus sur Insérer des données aléatoires.
Lister toutes les dates entre deux dates avec VBA
Si vous êtes intéressé par le code macro, vous pouvez utiliser le VBA ci-dessous pour lister toutes les dates entre deux dates données dans Excel.
1. Tapez la date de début et la date de fin dans deux cellules, ici je les tape dans les cellules A1 et B1. Voir la capture d'écran :
2. Appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
3. Cliquez ensuite sur Insérer > Module et copiez-collez le code VBA ci-dessous dans la fenêtre Module qui s'affiche.
VBA : Lister toutes les dates 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 appuyez sur F5 pour exécuter le VBA, et une fenêtre s'affiche pour vous permettre de sélectionner la date de début, puis cliquez sur OK, puis sélectionnez la date de fin dans la deuxième fenêtre qui s'affiche. Voir la capture d'écran :
5. Cliquez sur OK, puis sélectionnez une cellule pour afficher les dates, puis cliquez sur OK. Vous pouvez maintenant voir que toutes les dates entre les deux dates sont listées. Voir les captures d'écran :
Remarque : La liste générée par ce VBA inclut la date de début et la date de fin.
Lister toutes les dates entre deux dates
Articles connexes :
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification 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é de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels