Liste de date entre deux dates

[Diane_courie]

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

 

[mapomme]

Bonjour @Diane_courie,

voir la macro:

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

 

[Diane_courie]

Bonjour,
Merci mais cela ne fonctionne pas il y a des erreurs...
La première date se duplique 2 fois

Diane

 

[merinos]

Et hops ... un query...

Pour adapter, il suffit de faire un "refresh"

 

[Diane_courie]

Merci beaucoup!!!

 

[mapomme]

Re @Diane_courie

Qu'est ce qui ne va pas ?