trouver jour annee n-1

[paskikic]

bonjour les xlnautes

je viens a vous car je chercher a retrouver une date a n-1.

explication nous sommes le lundi 4 janvier 2016 dans textbox1 de la semaine 1 2016 et je cherche a retrouver le lundi de la semaine 1 mais de l annee 2015 ici ( le lundi 5 janvier 2015 ) dans textbox2.

auriez vous une idee pour me sortir ce mauvais pas

merci a vous tous

 

[st007]

Re : trouver jour annee n-1

Bonjour,
Pour ouvrir le débat

textbox1-364 ????

 

[Modeste geedee]

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

 

[Philippe Tulliez]

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

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

[EDIT]
Exemple en vba

 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")

 

[paskikic]

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

 

[Modeste geedee]

Re : trouver jour annee n-1

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

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

 

[paskikic]

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

 

[Modeste geedee]

Re : trouver jour annee n-1

Bonsour®

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

 

[paskikic]

Re : trouver jour annee n-1

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