Discussion :

[Zebulon777]

Bonjour à tous,
je souhaite récupérer le nombre de jours pour un mois et une année donnés et ajouter la date du 1er jour au dernier dans une feuille excel...

Merci d'avance...

[Daranc]

Salut
par formule de feuille
si tu mets une date en A1
en b1=FIN.MOIS(A1;0)-FIN.MOIS(A1;-1)
pas besoin de VBA pour ça
Daranc

[Zebulon777]

Merci de ta réponse, mais c'est dans un code VBA que j'ai besoin de cette chose-là

En fait, il me faut absolument le dernier jour du mois quelque soit le mois et l'année donnés en paramètres.

Je voulais faire une fonction renvoyant le nombre de jour d'un mois afin de pouvoir ensuite mettre en place une boucle

(Ps : Je n'arrive pas à utiliser l'exemple que tu donnes en VBA ; je n'arrive pas à l'adapter en VBA...)

[Zebulon777]

Merci pour tout, mais j'ai fini par trouver.
Voici la solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
WDernierJourDuMois = CDate("01/" & WMois & "/" & WAnnee)
WDernierJourDuMois = DateAdd("d", -1, WDernierJourDuMois)
WDernierJourDuMois = Day(WDernierJourDuMois)

Voili, voilou...

[Daranc]

Salut en triant mes abonnements
je pense qu'il y a une petite erreur sur la prmière ligne de ta formule pour le mois il faut +1 ( à moins que lors de la récupération tu ais déjà incrémenter Wmois)
Daranc

[lunart]

Vous pouvez aussi utiliser une formule plus simple si vous n'avez pas besoin de macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=JOUR(FIN.MOIS(A1;0))

[kiki29]

Salut, pour info, une de plus parmi une myriade

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Option Explicit
 
Function NB_JOURS(ddate As Date) As Long
    NB_JOURS = Day(DateSerial(Year(ddate), Month(ddate) + 1, 1) - 1)
End Function

[patricktoulon]

re

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
    MsgBox NB_JOURS("25/08/2017")
End Sub
Function NB_JOURS(Ldate As Date) As Long
    NB_JOURS = Day(DateSerial(Year(Ldate), Month(Ldate) + 1, 0))
End Function

le jour 0 d'un mois c' est le dernier jour du mois précèdent
je sais c'est rigolo

[unparia]

Bonjour Patrick

le jour 0 d'un mois c' est le dernier jour du mois précèdent
je sais c'est rigolo

Rigolo, non. Tout simplement très logique, 0 étant égal à 1 - 1
ainsi et toujours dans la même logique absolue de DateSerial :

Day(DateSerial(Year(Ldate), Month(Ldate) + 1, -2))

pour l'avant-veille du dernier jour du mois

EDIT : bien la comprendre, cette logique --->>
Elle n'est pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DateSerial(un_millésime, un_mois, un_jour)

Mais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DateSerial(un_compteur_d'années, un_compteur_de_mois, un_compteur_de_jours)

Pour être plus précis :
- le "compteur_d'années" est tout simplement le nombre de jours écoulés depuis une origine jusqu'au dernier jour de l'année antérieure
- le "compteur_de_mois" est tout simplement le nombre de jours écoulés depuis le 1er janvier de l'année
- le compteur_de_jours est déjà en jours (il peut être négatif, positif, ou 0)
Le résultat est l'addition des trois (la date interne, donc l'écart par rapport à l'origine)

[Philippe Tulliez]

Bonjour,
La fonction VBA DateSerial renvoyant la même valeur que la fonction native d'excel DATE en fonction des arguments passés

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI());0)

renverra le dernier jour du mois précédent et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())+1;0)

renverra le dernier jour du mois en cours.

[unparia]

Bonjour Philippe
Tout-à-fait ...
En outre : relire la demande :

je souhaite récupérer le nombre de jours pour un mois et une année donnés et ajouter la date du 1er jour au dernier dans une feuille excel...

Elle aurait eu sa place dans la section Excel, avec une solution totalement Excel, de A à Z, pour tous les jours d'un mois d'une année.
Mais comme (trop) souvent -->> l'impulsivité a régné après lecture en diagonale
Amitiés

[eriiic]

Bonjour à tous,

Quel feu d'artifice pour le 10e anniversaire de cette question ! :-)
eric