Numéro du jour de l'année

[Claudy]

Bonjour,
comment trouver le numéro du jour de l'année?
Via un MonthVieuw en VBA?
Exemple : le 03/01/2016 est le troisième jour, le 14/02/2016 est le 45 ème jour, le 10/03/2016 est le 70 ème...
Merci d'avance,
Claudy

 

[Jo_VBA]

Re : Numéro du jour de l'année

Bonjour,

ce post devrait vous aider.

https://www.excel-downloads.com/threads/trouver-en-vba-le-n-0-de-jour-dans-lannee.45654/

 

[néné06]

Re : Numéro du jour de l'année

Bonjour Claudy,

Sinon, voir aussi ce lien que j'avais posté ?

Lien supprimé

A+

René

 

[Claudy]

Re : Numéro du jour de l'année

Ok merci à vous deux...
A+
Claudy

 

[Modeste geedee]

Re : Numéro du jour de l'année

Bonsour®
simplement :
=dateref-date(année(dateref);1;1)
format de cellule : nombre ##0

 

[job75]

Re : Numéro du jour de l'année

Bonjour,

Formule de Modeste geedee corrigée =dateref-DATE(ANNEE(dateref);1;1)+1

Edit : ou plus simplement =dateref-DATE(ANNEE(dateref);1;0)

A+

 

[Claudy]

Re : Numéro du jour de l'année

ok merci ...même si j'ai trouvé..
en VBA ? simplement?
Merci
Claudy

 

[job75]

Re : Numéro du jour de l'année

Re Claudy,

en VBA ? simplement

Dim dateref As Date, n%
dateref = Date 'DateValue("3/1/2015")
n = dateref - DateSerial(Year(dateref), 1, 0)
MsgBox n 'pour tester

A+

 

[MADAGASCAR]

Re : Numéro du jour de l'année

Bonsoir Maitre Job75
SVP comment se sera la forme de ce code avec une date precise par exemple je veux savoir le numero du jour 14/07/2014
Merci d'avance pour l'aide
Cordialement
MADA BLACK

 

[job75]

Re : Numéro du jour de l'année

Bonsoir MADAGASCAR,

Pourquoi crois-tu que j'ai indiqué DateValue("3/1/2015") au post #8 ???

A+

 

[MADAGASCAR]

Re : Numéro du jour de l'année

Bonsoir Maitre job75
SVP si vous pouvez voir ce fichier .. je clique sur le commandbouton alors le numero qui s'affichera dans le messageBox c'est 331 .. comment obtenir le numero 3 dans ce Message Box qui est bien le numero du jour 03/01/2015
Merci beaucoup d'avance pour l'aide
Cordialement
MADA BLACK

 

[job75]

Re : Numéro du jour de l'année

Re,

Qu'est-ce qu'il t'arrive ce soir MADA ?

dateref = DateValue("3/1/2015")

A+

 

[MADAGASCAR]

Re : Numéro du jour de l'année

Bonsoir Maitre
Mes excuses .. comme je suis meilleur ediot
Lorsque j'ai vu votre partie du code comment dire en couleur verte j'ai cru que c'est une simple explication de votre part .. c'est pour cela j'ai pas pu comprendre
Merci maitre 1000 fois de vos réponse et vos impeccable codes
Cordialement
MADA BLACK

 

[Modeste geedee]

Re : Numéro du jour de l'année

Bonsour®

ok merci ...même si j'ai trouvé..
en VBA ? simplement?
Merci
Claudy

en VBA ?
simplement ... !

MsgBox "quantième: " & DatePart("y", DateRef)

🙄

MsgBox "quantième: " & DatePart("y", Now)

 

[Modeste geedee]

Re : Numéro du jour de l'année

Bonsour®
une fonction personnalisée ...

Function Quantieme(target As Date)
Quantieme = DatePart("y", target)
End Function