Créer un onglet par semaine de l'année

Question

J'ai un fichier qui doit comporter un onglet par semaine de l'année 2016. la "Base" de chaque onglet étant la même, le but est de recopier 52 fois le premier onglet et donner à chacun le numéro de la semaine, soit SEM01, SEM02,SEM03 ... J'ai trouvé le programme suivant, qui fonctionne très bien : Sub creer_annee() Dim cptr As Byte, jour As Byte Application.ScreenUpdating = False For cptr = 2 To 53 Sheets(1).Copy after:=Sheets(cptr - 1) With Sheets(cptr) .Name = "S" & cptr - 1 'date du lundi de la semaine créée .Cells(1, 1) = 7 * (cptr - 1) + DateSerial(Annee, 1, 3) - Weekday(DateSerial(Annee, 1, 3)) - 5 For jour = 2 To 7 .Cells(1, jour) = .Cells(1, jour - 1) + 1 Next End With Next End Sub mais le problème est qu'il compte la semaine du 28/12/2015 au 03/01/2016 comme semaine numéro 1 alors que officiellement il s'agit de la 53 ième semaine de 2015 et la semaine n° 1 de 2016 débute le 4 janvier. Comment pourrais-je transformer cela ? Merci à vous...

PierreHBG · Answer

Ahhhh ça m'a fait pareil !!

Ce que j'ai du faire c'est rajouter un "-1" pour afficher la bonne semaine (le seul problème c'est que ça marche que pour 2016... En 2017 tu te retrouves avec du semaine 0) !

Cordialement !

Peuwi · Answer

C'est vraiment nécessaire de créer un onglet par semaine ? Non, parce que c'est inutilisable derrière ... Naviguer dans les onglets, c'est plutôt infect.

Autant mettre toutes les données dans le même onglet, et de filtrer les valeurs qui ne concernent pas la semaine en cours ...

Accessoirement, cela permet de faire des calculs facilement à travers plusieurs semaines.

PierreHBG · Answer

Peuwi, le problème reste le même, excel prend la semaine 53 comme semaine 1, je pense que c'est surtout ça qui coince ...

Steelson · Answer

Excel 2013 a enfin corrigé le problème en proposant une formule avec paramètre. En attendant, internet propose plusieurs formules du n° de semaine qui respecte la norme ISO 8601 https://fr.wikipedia.org/wiki/Semaine_1 Exemple : =ENT((A2-SOMME(MOD(DATE(ANNEE(A2-MOD(A2-2;7)+3);1;2);{1E+99;7})*{1;-1})+5)/7) avec la date en A2 (formule de Laurent Longre ) Rappel de la norme ISO : la semaine 53 de 2015 se termine le dimanche 3 janvier 2016 et la semaine 1 de 2016 commence le lundi 4 janvier 2016...

Steelson · Answer

Surtout pas, utilise la formule ci-dessus au lieu de NO.SEMAINE...

PierreHBG · Answer

Excel 2013 a enfin corrigé le problème en proposant une formule avec paramètre. En attendant, internet propose plusieurs formules du n° de semaine qui respecte la norme ISO 8601 https://fr.wikipedia.org/wiki/Semaine_1 Exemple : =ENT((A2-SOMME(MOD(DATE(ANNEE(A2-MOD(A2-2;7)+3);1;2);{1E+99;7})*{1;-1})+5)/7) avec la date en A2 (formule de Laurent Longre ) Salut, j'ai essayé ta formule et ça ne marche pas... Si tu as d'autres solutions, je suis preneur ...

Steelson · Answer

Bonjour, qu'est-ce qui ne fonctionne pas ? Voir ci-joint...

HUGOBASS · Answer

Avec les versions excel à partir de 2007 pour les numéros de semaine norme ISOP vous pouvez aussi utiliser la formule NO.SEMAINE comme ci après : =NO.SEMAINE(A2;21) Cordialement Hugues Bonjour, Je corrige mon propos à partir de excel 2010 windows et excel 2011 mac Cordialement Hugues...