trouver jour annee n-1

S

st007

XLDnaute Barbatruc

• 8 Janvier 2016

• #2

Re : trouver jour annee n-1

Bonjour,
Pour ouvrir le débat

textbox1-364 ????

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 8 Janvier 2016

• #3

Re : trouver jour annee n-1

Bonsour® ST007

précision : ce n'est valable que pour le 1er lundi de l'année
et non pour le lundi de la semaine 1 (ISO)
le lundi de la semaine 1 de 2015 était le 29/12/14

les 1er lundi
Lundi 5 janvier 2008
et
lundi 7 janvier 2009
étaient en semaine 2 ISO

 

Vote positif 0 Vote négatif

P

Philippe Tulliez

Guest

• 8 Janvier 2016

• #4

Re : trouver jour annee n-1

Bonjour,
Tout à fait d'accord avec GeeDee.
Voici une formule en Excel que j'ai retrouvé dans mes archives. A adapter en VBA
En A2, le numéro de la semaine, en B2, le n° de l'année

Code:

=7*A2+DATE(B2;1;3)-JOURSEM(DATE(B2;1;3))-5

[EDIT]
Exemple en vba

Code:

 Dim myDate As Date, myYear As Integer, myWeek As Byte
 myYear = 2016
 myWeek = 1
 myDate = 7 * myWeek + DateSerial(myYear, 1, 3) - Weekday(DateSerial(myYear, 1, 3)) - 5
 MsgBox Format(myDate, "dddd dd/mm/yyyy")

 

Dernière modification par un modérateur: 8 Janvier 2016

Vote positif 0 Vote négatif

paskikic

XLDnaute Occasionnel

• 8 Janvier 2016

• #5

Re : trouver jour annee n-1

merci messieurs effectivement le premier lundi est bien le 29 12 2014 mais pour mes ventes il faut que je me base le 1 lundi du mois en cours car en decembre les ventes ne sont pas les memes (promo donc CA plus gros) que janvier qui est calme donc pour mes commandes j aurais un surstock qui partira a la poubelle. et de plus quand je fais mes moyennes aux mois ca fausse tout.

voila vous comprenez pourquoi c est le lundi de la semaine du mois n-1 en cour

merci a vous tout et a toi Philippe ta formule direct en cellule je l avait deja et me reportait aussi au 29 12

j avais penser a faire =7*A2+DATE(B2;1;3)-JOURSEM(DATE(B2;1;3))-5+7

mais ca me fout tout en l air pour 2017 ca me reporte au 9 /01/17 au du 2/01/17
ahhhhh!! 2014 quelle annee de m...avecses 53 semaines

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 9 Janvier 2016

• #6

Re : trouver jour annee n-1

Bonsour®
le 1er lundi d'une année donnée en A1

Code:

=DATE(A1;1;1)-MOD(DATE(A1;1;1)-3;7)+6

 

Pièces jointes

• Capture.JPG

  73.1 KB · Affichages: 41

Vote positif 0 Vote négatif

paskikic

XLDnaute Occasionnel

• 9 Janvier 2016

• #7

Re : trouver jour annee n-1

merci modeste geedee
c est super mais a tous hazard y aurait il une personne qui pourrait transcrire ta formule an vba
car je n y arrive pas avec la fonction MOD je ne trouve pas dequivalent an vba

merci a vous

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 9 Janvier 2016

• #8

Re : trouver jour annee n-1

Bonsour®

Code:

Dim VarAnnée As Integer
VarAnnée = 2015
MsgBox DateSerial(VarAnnée, 1, 1) - ((DateSerial(VarAnnée, 1, 1) - 3) Mod 7) + 6

 

Vote positif 0 Vote négatif

paskikic

XLDnaute Occasionnel

• 9 Janvier 2016

• #9

Re : trouver jour annee n-1

merci
j essaye ca tout de suite et te dit t es un chef en core merci

 

Vote positif 0 Vote négatif