Dernier jour du mois !

[arnaoke]

BOnjour,

existe t il une méthode VBA permettant de donner le dernier jour d'un mois (en paramèter de préférence !).

Je voudrais éviter de tout coder "à la main" ...

Arnaoke

 

[Pierrot93]

Re : Dernier jour du mois !

Bonjour,

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

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

bonne journée
@+

 

[arnaoke]

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

 

[Dranreb]

Re : Dernier jour du mois !

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

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:

=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.

 

[Pierrot93]

Re : Dernier jour du mois !

Re, bonjour bernard

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

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...