Boucle sur des mois d'années différentes

Bonsoir,

J'ai un blocage, je souhaite faire une boucle qui part du 01/04/2020 à 01/03/2021, cette boucle je veux qu'elle fasse que les mois.

Max_date = CDate(Application.WorksheetFunction.Max(Columns("B")))

Min_date = CDate(Application.WorksheetFunction.Min(Columns("B")))

For x = Min_date To month(Max_date)

MsgBox (x)

Next

Je suis partie sur ça, mais ça me donne les jours, dans ma msgbox je vois le message 4 passer 30 fois .. Vous avez une idée de comment faire SVP pour avoir que les mois.

Je vous en remercie par avance, et je vous souhaite une excellente soirée,

Bonsoir,

Tu peux procéder ainsi :

    x_date = Min_date
    Do
        'instructions
        x_date = DateAdd("m", 1, x_date)
    Loop While x_date <= max_date

Cordialement.

Merci beaucoup pour cette réactivité ! ça a marché !

je te souhaite une très bonne soirée et une bonne continuation !! Merci encore une fois !