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 Sub

4. 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 :

• Créer une liste dynamique de noms de feuilles de calcul