Trouver en VBA le n° de jour dans l'année

[Olivier]

Bonsoir, le forum,

Pourriez-vous m'aider SVP :

À partir d'une date contenue dans la cellule A14,
Savez-vous comment trouver quel est le n° du jour correspondant dans l'année (exemple : le 1er janvier c'est le n° 1, le 31 décembre c'est le n° 365 ou n° 364,..).

Merci,

Cordialement

Olivier

 

[Guitarde]

Essaie le code suivant:


Sub Macro1()

Dim vDate As Date
Dim v1erJour As Date

vDate = Range('a14').Value

vYear = Year(vDate)
vMonth = Month(vDate)
vDay = Day(vDate)

v1erJour = '01/01/' & vYear

vJour = vDate - v1erJour + 1

End Sub



Salutations
Eric

 

[Guitarde]

En fait tu peux effacer ces 2 lignes qui ne servent à rien.

vMonth = Month(vDate)
vDay = Day(vDate)

 

[myDearFriend!]

Bonsoir Olivier, Guitarde,

La façon la plus simple il me semble :

Dim D As Integer
      MsgBox 'Aujourd'hui est le ' & DatePart('y', Date) & 'ème jour de l'année.'

Cordialement,

 

[Olivier]

Nickel,

Merci beaucoup

Olivier

 

[ya_v_ka]

Salut tout le monde

heu juste pour vous signaler que le jour ou le 31 décembre sera le 364e jour de l'année on va être dans la m....armelade avec nos codes et programmes.........

ya'v

 

[_Thierry]

Bonjour Olivier, Didier, Guitarde, Y_a_Vé_Ka

Ya'Vé, je suppose que tu blagues là ?

Car fort heureusement qu'Excel gère les années bissextiles. De plus une année est dite bissextile (du latin bissextilis ) lorsqu’elle comporte 366 jours... Pas 364... La ni les grecs ou les romains n'ont prévu ce cas là

Bonne Journée

[ol]@+Thierry[/ol]

J - 1

 

[Olivier]

Re: le n° de jour dans l'année

Merci à vous tous,

Je suis finalement amener à aborder mon projet sous un autre angle,... et je me demande quelle serait la formule Excel sans macro pour obtenir le n° de jour dans l'année à partir d'une date.

En vous remerciant

Olivier

 

[Celeda]

Re: le n° de jour dans l'année

Bonjour,


un numéro de fil pour t'aider, vite faite (un bô fichier fait en vba et formules par GM)

Lien supprimé


Celeda


toujours rapidos : essaie celle-là si la date est en a10, retourne le numéro (en principe)

=A10-DATE(ANNEE(A10);1;0)

et pour t'aider dans les dates et heures, va voir DATES ET HEURES dans les téléchargements, il y a pas mal de combinaisons ....

Message édité par: Celeda, à: 23/09/2005 12:09

 

[Olivier]

Re: le n° de jour dans l'année

Parfait

Merci et bon WE

Olivier