Numéro du jour de l'année

J

Jo_VBA

XLDnaute Nouveau

• 27 Novembre 2015

• #2

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/

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 27 Novembre 2015

• #3

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

Bonjour Claudy,

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

Lien supprimé

A+

René

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 27 Novembre 2015

• #4

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

Ok merci à vous deux...
A+
Claudy

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 27 Novembre 2015

• #5

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

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Novembre 2015

• #6

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+

 

Dernière édition: 27 Novembre 2015

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 27 Novembre 2015

• #7

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

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Novembre 2015

• #8

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

Re Claudy,

Claudy à dit:

en VBA ? simplement

Cliquez pour agrandir...

Code:

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

A+

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 27 Novembre 2015

• #9

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Novembre 2015

• #10

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+

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 27 Novembre 2015

• #11

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

 

Pièces jointes

• numero du jour.xlsm

  16.1 KB · Affichages: 35

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Novembre 2015

• #12

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

Re,

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

Code:

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

A+

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 27 Novembre 2015

• #13

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

 

Pièces jointes

• j.jpg

  59.1 KB · Affichages: 55
• j.jpg

  59.1 KB · Affichages: 57

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 28 Novembre 2015

• #14

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

Bonsour®

Claudy à dit:

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

Cliquez pour agrandir...

en VBA ?
simplement ... !

Code:

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

Code:

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 28 Novembre 2015

• #15

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

Bonsour®
une fonction personnalisée ...

VB:

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

 

Pièces jointes

• Capture.JPG

  63.5 KB · Affichages: 72

Vote positif 0 Vote négatif