Bonjour Christophe,
le code suivant est pour trouver le dernier jour du mois en cour
DateSerial(Year(Now), Month(Now) + 1, 1) - 1
c'est l'équivalent vba de la formule
=DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())+1;1)-1
la macro se lit comme suit:
si la date d'aujourdhui est = au dernier jour du mois
si vrai:
faire pour chaque cellule de la plage "J4:J25"
ajout de 1 au mois à la date en J4
J4 =DATE(ANNEE(J4);MOIS(J4)+1;JOUR(J4))
passer à la cellule suivante
j'ai utilisé l'événement Workbook_Open()
mais on peut aussi bien associer la macro à un bouton ou autre
voici un exemple, la macro est sur le Module1
une autre possibilité est avec la formule suivante
=SI(AUJOURDHUI()=DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())+1;1)-1;DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())+1;I4);DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI());I4))
j'ai utilisé les cellules I4:I25 pour mettre la valeur du jour