Bisextile

Salut,
Une, parmi d'autre (avec l'année en a1)

If Int([a1] / 4) = [a1] / 4 Then
MsgBox "Année bisextile"
End If

Salutations
JJ

"Emcy" <anonymous@discussions.microsoft.com> a écrit dans le message news:
0c7b01c39efb$403b16a0$a401280a@phx.gbl...
Salut,

Comment faire en VBA pour savoir si une année est
bisextile ?

Salut Emcy !

Une fonction de JP Costa valide pour les dates à partir du 1.1.1900
=SI(MOIS(DATE(ANNEE(A1);2;29))=2;VRAI;FAUX)

En A1 tu met la date et tu colle cette formule où tu veux ...

Salutations
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne
!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)
&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102
)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/

"Emcy" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:0c7b01c39efb$403b16a0$a401280a@phx.gbl...
Salut,

Comment faire en VBA pour savoir si une année est
bisextile ?

RE ..

ou une autre de Philippe Noss ! (en VBA ;-))
Public Function bissextile(Mavaleur)
'mpfe Philippe Noss

If IsDate(Mavaleur) = True Then
If Month(DateSerial(Year:=Year(Mavaleur), Month:=2, Day:))) = 2 Then
bissextile = True
Else
bissextile = False
End If
Else
bissextile = "La valeur en entrée doit etre de type date"
End If
End Function

À copier dans un module standart et ensuite, tu utilise la fonction
=bissextile()

ça te va ??

Salutations
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne
!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)
&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102
)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/

"Emcy" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:0c7b01c39efb$403b16a0$a401280a@phx.gbl...
Salut,

Comment faire en VBA pour savoir si une année est
bisextile ?

Sub bisex()
an = 2004
MsgBox Abs((an <> 1900)) * Day(DateSerial(an, 2, 29)) = 29
End Sub

AV

"Emcy" <anonymous@discussions.microsoft.com> a écrit dans le message news:
0c7b01c39efb$403b16a0$a401280a@phx.gbl...
Salut,

Comment faire en VBA pour savoir si une année est
bisextile ?

Sans trop forcer, fonction perso...

Function BISEX(Année%)
BISEX = Abs((Année <> 1900)) * Day(DateSerial(Année, 2, 29)) = 29
End Function

AV

Bonjour,

bissextile = (Day(DateSerial(monAnnee,2,29))))

Salutations,

Daniel M.

"Emcy" <anonymous@discussions.microsoft.com> wrote in message
news:0c7b01c39efb$403b16a0$a401280a@phx.gbl...
Salut,

Comment faire en VBA pour savoir si une année est
bisextile ?

J'en avais même oublié que la fonction de feuille DATE était moins intelligente
que la fonction vba DateSerial !
;-)

AV

Bonjour,

de façon triviale si la date du 29/02 pour l'année
existe alors l'année est bissextile

l'année en A1

=NON(ESTERREUR(DATEVAL("29/02/"&A1)))


attention EXCEL est buggué pour 1900 !!!!

@+

-----Message d'origine-----
Salut,

Comment faire en VBA pour savoir si une année est
bisextile ?
.

attention EXCEL est buggué pour 1900 !!!!

Pas en vba... ;-)
(piqure de rappel survenue il y a peu ;-)

AV

"Emcy" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 0c7b01c39efb$403b16a0$a401280a@phx.gbl...
Salut,

Comment faire en VBA pour savoir si une année est
bisextile ?

C'est pas du VBA, mais c'est simple, colle la date du premier janvier de
l'année qui t'intéresse en A1 et tape la formule ci-dessous ou tu veux, si
le résultat est 29/02/... alors c'est une année bissextile, si c'est
28/02.... c'est une année non bissextile
=FIN.MOIS(A1;1)
A+
Didier