Calcul de la date correspondant au jeudi

H

HIJACK

Guest

• 2 Septembre 2009

• #2

Re : Calcul de la date correspondant au jeudi

HI!

Code:

Sub Macro2()
Dim aze As Date

aze = "01/01/05" ' mettre 1er jour annee
a = 0
a = DatePart("w", aze)
a = 5 - a
If a < 0 Then a = a + 7

Resultat = DateAdd("d", a, aze)


End Sub

♫♫😱

 

Vote positif 0 Vote négatif

Mytå

XLDnaute Occasionnel

• 2 Septembre 2009

• #3

Re : Calcul de la date correspondant au jeudi

Salut le forum

Essaye ceci

=SI(ANNEE(DATE(A2;1;1)-MOD(DATE(A2;1;1)-5;7))<A2;DATE(A2;1;1)-MOD(DATE(A2;1;1)-5;7)+7;DATE(A2;1;1)-MOD(DATE(A2;1;1)-5;7))

Cliquez pour agrandir...

Mytå

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 2 Septembre 2009

• #4

Re : Calcul de la date correspondant au jeudi

Si c'est une formule dans une cellule que tu veux, tu peux aussi essayer ça :
=DATE(B4;1;1)+MOD(10-JOURSEM(DATE(B4;1;1);3);7)
en supposant que la cellule B4 contienne l'année en question.


PS : le premier jeudi de l'an 2000 est le 6 janvier. 😉

 

Dernière édition: 2 Septembre 2009

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 2 Septembre 2009

• #5

Re : Calcul de la date correspondant au jeudi

Bonjour, salut les autres,

Une autre formule :
A1 : l'année
=DATE(A1;1;1)+4-JOURSEM(DATE(A1;1;1);2)+(JOURSEM(DATE(A1;1;1);2)>4)*7
Le 4 dans la formule correspond au jeudi.

 

Vote positif 0 Vote négatif

C

caton47

Guest

• 2 Septembre 2009

• #6

Re : Calcul de la date correspondant au jeudi

Bonsoir,

J'ai essayé les 3 formules et toutes donnent le même résultat. Merci à tout le monde y compris à Hijack pour sa macro que je n'ai pas testée.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 2 Septembre 2009

• #7

Re : Calcul de la date correspondant au jeudi

A ton service. 😉

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 3 Septembre 2009

• #8

Re : Calcul de la date correspondant au jeudi

Bonsoir

La procédure de HIJACK fonctionne aussi et on peut l'arranger en une courte fonction :

Code:

[COLOR="DarkSlateGray"]Function JEUDI(A)
   JEUDI = DateAdd("d", DateSerial(A, 1, 13), 7 * (6 > DatePart("w", DateSerial(A, 1, 1))) - DatePart("w", DateSerial(A, 1, 1)))
End Function[/COLOR]

A étant le millésime.
=JEUDI(2010) renvoie 40185 qui, formaté en date, donne jeudi 7 janvier 2010.​

ROGER2327

 

Vote positif 0 Vote négatif