VBA : créer une liste de dates entre 2 valeurs

Question

Bonjour à tous,

J'ai deux cellules nommées [chx_deb] et [chx_fin]. Ces deux cellules contiennent obligatoirement une date qui est toujours le premier jour d'un mois.

J'ai défini 2 variables deb et fin : deb = [chx_deb] et fin = [chx_fin] - deb est toujours < à fin.

Je souhaiterais créer en colonne à partir de A10 la liste de tous les premiers de mois compris entre les deux dates deb et fin (inclus).

Exemple : deb = 01/01/2019 et fin = 01/06/2019

Liste obtenue : En A10 : 01/01/2019, en A11 01/02/2019, en A12 01/03/2019, A13 = 01/04/2019, A14 = 01/05/2019 et A15 = 01/06/2019

Je cherche en vain autour de :

[A10].Resize(fin - deb).DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlMonth, Step:=1

mais je n'obtiens pas vraiment le résultat souhaité car j'ai beaucoup plus de dates....

Quelqu'un pourrait-il me donner un coup de main ? ;o)

Merci

Domi

Answer 1

Essaye en l'écrivant de cette manière :

Sub AligneDates()
Dim deb As Date, fin As Date
deb = [chx_deb] ' ou #1/1/2019#
fin = [chx_fin] ' ou #6/1/2019#
With ActiveSheet.Range("A10")
    .Formula = deb
    .DataSeries Rowcol:=xlColumns, Type:=xlChronological, _
        Date:=xlMonth, Step:=1, Stop:=fin
End With
End Sub

Answer 2

CQFD, c'est parfait ;o)

Merci beaucoup.