Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Date

Date

8 réponses
Avatar
fafa
Bonjour

Je cherche le moyen en VBA, de connaitre
le nombre de jour par rapport à un mois.

Exemple:
Juin = 30
Juillet = 31
etc...

Merci de votre aide
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Philippe.R
Bonjour Fafa,
Comme ceci ?

Sub combjrs()
'MPFE le 18/04/2005 fête des secrétaires
Dim leMois As Integer, lejOurs As Integer
leMois = InputBox("Pour connaître son nombre de jours" _
& vbNewLine & "Saisissez un numero de mois", _
"A MPFE rien d'impossible", 1, 3456, 5432) * 1
lesjours = DateSerial(Year(Now), leMois + 1, 1) - _
DateSerial(Year(Now), leMois, 1)
MsgBox "Le mois en question a " & lesjours & " jours", _
, "Merci MPFE"
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"fafa" a écrit dans le message de news: 42637e08$
Bonjour

Je cherche le moyen en VBA, de connaitre
le nombre de jour par rapport à un mois.

Exemple:
Juin = 30
Juillet = 31
etc...

Merci de votre aide




Avatar
Philippe.R
Re,
Un peu mieux comme ci :

Sub combjrs()
'MPFE le 18/04/2005 fête des secrétaires
Dim leMois As Integer, lejOurs As Integer
On Error GoTo fin
leMois = InputBox("Pour connaître son nombre de jours" _
& vbNewLine & "Saisissez un numero de mois", _
"A MPFE rien d'impossible", 1, 3456, 5432) * 1
lesjours = DateSerial(Year(Now), leMois + 1, 1) - _
DateSerial(Year(Now), leMois, 1)
MsgBox "Le mois en question a " & lesjours & " jours", _
, "Merci MPFE"
fin:
End Sub
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"fafa" a écrit dans le message de news: 42637e08$
Bonjour

Je cherche le moyen en VBA, de connaitre
le nombre de jour par rapport à un mois.

Exemple:
Juin = 30
Juillet = 31
etc...

Merci de votre aide




Avatar
Philippe.R
Re,
Entre autre pour soigner mes stats, je ne peux m'empêcher d'ajouter

Sub combdejrs()
'MPFE le 18/04/2005 fête des secrétaires
' et anniversaire de Laurent dit BM
Dim leMois As Integer, lejOurs As Integer
On Error GoTo fin
leMois = InputBox("Pour connaître son nombre de jours" _
& vbNewLine & "Saisissez un numero de mois", _
"A MPFE rien d'impossible", 1, 3456, 5432) * 1
lesjours = DateSerial(Year(Now), leMois + 1, 1) - _
DateSerial(Year(Now), leMois, 1)
MsgBox "Le mois en question a " & lesjours & " jours" & _
IIf(leMois = 2, "" & vbNewLine & "pour l'année" _
& " courante", ""), , "Merci MPFE"
fin:
End Sub
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"fafa" a écrit dans le message de news: 42637e08$
Bonjour

Je cherche le moyen en VBA, de connaitre
le nombre de jour par rapport à un mois.

Exemple:
Juin = 30
Juillet = 31
etc...

Merci de votre aide




Avatar
Daniel.M
Bonjour Philippe,

Un peu mieux comme ci :
...
lesjours = DateSerial(Year(Now), leMois + 1, 1) - _
DateSerial(Year(Now), leMois, 1)


encore mieux? ;-)

lesjours = Day(DateSerial(Year(Now), leMois + 1, 0))

Salutations,

Daniel M.

Avatar
Gaenonius
Ou, aussi, une fonction perso utilisable dans une procédure :

Function NbJours(LaDate)
NbJours = Day(DateSerial(Year(LaDate), Month(LaDate) + 1, 0))
End Function

Sub test()
MsgBox NbJours(CDate(InputBox("Saisir une date")))
End Sub

(attention, aucune vérification de la saisie dans l'inputbox)

--
Gaenonius

Bonjour

Je cherche le moyen en VBA, de connaitre
le nombre de jour par rapport à un mois.

Exemple:
Juin = 30
Juillet = 31
etc...

Merci de votre aide




Avatar
Philippe.R
Bien vu, Daniel, merci.
--
Amicales Salutations

"Daniel.M" a écrit dans le message de news:
%
Bonjour Philippe,

Un peu mieux comme ci :
...
lesjours = DateSerial(Year(Now), leMois + 1, 1) - _
DateSerial(Year(Now), leMois, 1)


encore mieux? ;-)

lesjours = Day(DateSerial(Year(Now), leMois + 1, 0))

Salutations,

Daniel M.





Avatar
Gaenonius
Désolé du (presque) doublon. J'aurais mettre à jour avant de poster !

--
Gaenonius

Bonjour Philippe,


Un peu mieux comme ci :
...
lesjours = DateSerial(Year(Now), leMois + 1, 1) - _
DateSerial(Year(Now), leMois, 1)



encore mieux? ;-)

lesjours = Day(DateSerial(Year(Now), leMois + 1, 0))

Salutations,

Daniel M.





Avatar
fafa
Merci à vous tous.
Exelent...

"Gaenonius" a écrit dans le message de
news:
Ou, aussi, une fonction perso utilisable dans une procédure :

Function NbJours(LaDate)
NbJours = Day(DateSerial(Year(LaDate), Month(LaDate) + 1, 0))
End Function

Sub test()
MsgBox NbJours(CDate(InputBox("Saisir une date")))
End Sub

(attention, aucune vérification de la saisie dans l'inputbox)

--
Gaenonius

Bonjour

Je cherche le moyen en VBA, de connaitre
le nombre de jour par rapport à un mois.

Exemple:
Juin = 30
Juillet = 31
etc...

Merci de votre aide