Dernier jour du mois !

Pierrot93

XLDnaute Barbatruc

• 19 Juillet 2011

• #2

Re : Dernier jour du mois !

Bonjour,

regarde ceci, si cela peut te permetttre d'avancer...

Code:

MsgBox DateSerial(Year(Date), Month(Date) + 1, 0)

bonne journée
@+

 

Vote positif 0 Vote négatif

A

arnaoke

XLDnaute Occasionnel

• 19 Juillet 2011

• #3

Re : Dernier jour du mois !

Apparemment cela semble fonctionner pour la date du jour ...

c'est le dernier paramète ( le 0 ) qui permet de renvoyer le dernier jour ?


Arnaoke

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Juillet 2011

• #4

Re : Dernier jour du mois !

Bonjour.
Soit DRéf une date dans le mois souhaité par exemple, Ceci devrait faire l'affaire :

VB:

Dim DFinMois As Date, DRéf as Date 
DFinMois = DateSerial(Year(DRéf), Month(DRéf) + 1, 1) - 1

J'utilise aussi ça en formule pour me fabriquer des séries de dates de fins de mois:

Code:

=DATE(ANNEE(DECALER(A3;-1;0);MOIS(DECALER(A3;-1;0)+2;1)-1

À+

Bonjour Pierrot. Très très en retard moi. Reviens de vacance. pas encore repris le rhytme
Et spécifier 0 comme numéro du jour pour qu'il assume le dernier du mois précédent, est mieux.
Cordialement.

 

Dernière édition: 19 Juillet 2011

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Juillet 2011

• #5

Re : Dernier jour du mois !

Re, bonjour bernard

c'est le dernier paramète ( le 0 ) qui permet de renvoyer le dernier jour ?

Cliquez pour agrandir...

comme on ajoute 1 au mois de la date, en définissant 0 pour le jour, cela renvoie la veille.. soit le dernier jour du mois pour la date qui t'interresse...

 

Vote positif 0 Vote négatif