Liste de date entre deux dates

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Diane_courie

XLDnaute Nouveau
Bonjour,

Je n'arrive pas à lister les jours entre deux dates. Je m'explique :
J'ai (A1) 10/09/2018 - (B1) 15/09/2018 - (C1) 1234
(A2) 13/09/2018 - (B2) 15/09/2018 - (C2) 3335
..........................
.........................
Et je voudrais avoir :
10/09/2018 1234
11/09/2018 1234
13/09/2018 1234
14/09/2018 1234
15/09/2018 1234
13/09/2018 3335
14/09/2018 3335
15/09/2018 3335

Je vous remercie par avance pour votre aide
Diane
 
Bonjour @Diane_courie,

voir la macro:
VB:
Sub test()
Dim t, res(1 To 100000, 1 To 2), i&, j&, n&
Application.ScreenUpdating = False
t = Range("a1").CurrentRegion
For i = 1 To UBound(t)
  For j = t(i, 1) To t(i, 2)
    If n = UBound(res) Then Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(n, 2) = res: n = 0
    n = n + 1: res(n, 1) = j: res(n, 2) = t(i, 3)
  Next j
Next i
If n > 0 Then Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(n, 2) = res
Cells(1, 1).Resize(UBound(t), 3).Delete xlShiftUp
Cells(1, 1).Resize(Cells(Rows.Count, 1).End(xlUp).Row).NumberFormat = "dd/mm/yyyy"
End Sub
 
Notre forum d’entraide est 100 % gratuit et le restera.
Aucune formation payante, aucun fichier à acheter, rien à vendre. Mais comme tout site, nous devons couvrir nos frais pour continuer à vous accompagner.
Soutenez-nous en souscrivant à un compte membre : c’est rapide, vous choisissez simplement votre niveau de soutien et le tour est joué.

Je soutiens la communauté et j’accède à mon compte membre

Discussions similaires

Réponses
4
Affichages
256
Réponses
1
Affichages
194
Réponses
11
Affichages
656
Retour