Nombre de semaines dans une année Résolu/Fermé

Question

Bonjour,
Comment faire pour calculer sur excel le nombre de semaines qu'il y a dans une année sachant que 2008 est une année bisextile? 
merci

chtilou · Accepted Answer

Bonjour,

le plus simple reste de demander à notre ami Excel ce qu'il en pense. ;-)

Saisir la date en A1 
en B1 insérer la formule =NO.SEMAINE(A1)

Suspensssss...

scorpionfred · Answer

Il y a 52 semaines (365 jours ou 366 jours divisés par 7) :

52 en 2000 
52 en 2001 
52 en 2002 
52 en 2003 
52 en 2004 
52 en 2005 
52 en 2006 
52 en 2007 
52 en 2008 
52 en 2009 
52 en 2010 
52 en 2011 
52 en 2012 
52 en 2013 
52 en 2014 
52 en 2015 
52 en 2016 
52 en 2017 
52 en 2018
52 en 2019
52 en 2020  
52 en 2021 
52 en 2022 
52 en 2023 
52 en 2024 
52 en 2025 
52 en 2026 
52 en 2027 
52 en 2028
52 en 2029
52 en 2030

Xavstarblues · Answer

bonjour
nbr de jour en 2008=366
nbr de jour dans une semaine =7
366/7=
52,285714285714285714285714285714
......
Je te laisse faire l'arrondi

Nep · Answer

Bonjour

Une semaine commence toujours un lundi et donc même si le nombre de jours est toujours à peut prêt le même, le nombre de semaine varie entre 52 et 53.
En fait selon les normes européennes, la semaine est compté dans l'année en cours si elle comporte au moins 4 jour dans l'année en question.
De ce fait, si le 28 Décembre est un lundi, mardi ou mercredi alors l'année en cours comporte 53 semaines... (vu que la dernière semaine comptera 4,5 ou 6 jours)

En terme de code algorithmique:
Calculer le lundi de la semaine du 28 décembre
Si ce lundi == 28 decembre ou 27 decembre ou 26 decembre ==> retourner 53 semaines
Sinon retourner 52 semaines

En espérant avoir aider un peu...

Nep 

-----------------------------------------------------------------------------------------------

Axtérix24 · Answer

=SI(DROITE($G$3/6*100;2)="00";53;1)
VOICI UNE FORMULE QUI TE SIMPLIFERA LA VIE.
$G$3 EST LE NUMERO DE L'ANNEE SITUEE DANS CETTE CELLULE
Cordialement

Astérix · Answer

Suite à tout ce que j'ai pu lire, je me suis appuyé d'une part sur les défintions du larrousse et d'autre part sur les formule établies d'Exel. Années bisextiles les 4 ans dont le millésime est divisible par 4, divible par 100 si elle sont divisble par 400 2000, 1700,1800,1900 sont bisextiles. =SI(DROITE(TEXTE(janv!$D$11;"aaaa");2)="00";SI(DROITE(TEXTE(janv!$D$11;"aaaa")/100/400;2)="05";29;28);SI(DROITE(TEXTE(janv!$D$11;"aaaa")/4*100;2)="00";29;28)). Vous entrez la date du 1er Janvier dans une cellule choisie ex: 1/01/2010, le résultat de la formule vous donnera 28 ou 29 jrs pour le mois de février. Pour le nombre de semaine SI(DROITE(TEXTE(janv!$D$11;"aaaa")/6*100;2)="00";53;52) le résultat de la formule vous donnera 52 ou 53. Ces valeurs sont stokées dans des cellules situées dans une feuille que j'appelle paramètre et qui me servent pour les calculs du calendrier.

Pour connaître les jours de la semaine 52 ou 53 ou 1 je me suis fait les formules suivantes en ulisant la formule Exel JOURSEM(janv!D11;2). Nota D11 est la date du 1er Janvier 1/01/10
Private Sub Worksheet_Change(ByVal Target As Range)

If (Target.Address = "$D$11") Then
Worksheets(3).Unprotect "TSA3X8"
If Sheets(1).Range("A14").Value = 1 Then
Sheets(3).Range("F14").Value = Sheets(3).Range("D11").Value
Sheets(3).Range("H14").Value = Sheets(3).Range("D11").Value + 1
Sheets(3).Range("J14").Value = Sheets(3).Range("D11").Value + 2
Sheets(3).Range("L14").Value = Sheets(3).Range("D11").Value + 3
Sheets(3).Range("N14").Value = Sheets(3).Range("D11").Value + 4
Sheets(3).Range("P14").Value = Sheets(3).Range("D11").Value + 5
Sheets(3).Range("R14").Value = Sheets(3).Range("D11").Value + 6
Sheets(3).Range("F12").Value = Sheets(3).Range("D11").Value - Sheets(3).Range("F14").Value
ElseIf Sheets(1).Range("A14").Value = 2 Then
Sheets(3).Range("F14").Value = Sheets(3).Range("D11").Value - 1
Sheets(3).Range("H14").Value = Sheets(3).Range("D11").Value
Sheets(3).Range("J14").Value = Sheets(3).Range("D11").Value + 1
Sheets(3).Range("L14").Value = Sheets(3).Range("D11").Value + 2
Sheets(3).Range("N14").Value = Sheets(3).Range("D11").Value + 3
Sheets(3).Range("P14").Value = Sheets(3).Range("D11").Value + 4
Sheets(3).Range("R14").Value = Sheets(3).Range("D11").Value + 5
Sheets(3).Range("F12").Value = Sheets(3).Range("D11").Value - Sheets(3).Range("F14").Value
ElseIf Sheets(1).Range("A14").Value = 3 Then
Sheets(3).Range("F14").Value = Sheets(3).Range("D11").Value - 2
Sheets(3).Range("H14").Value = Sheets(3).Range("D11").Value - 1
Sheets(3).Range("J14").Value = Sheets(3).Range("D11").Value
Sheets(3).Range("L14").Value = Sheets(3).Range("D11").Value + 1
Sheets(3).Range("N14").Value = Sheets(3).Range("D11").Value + 2
Sheets(3).Range("P14").Value = Sheets(3).Range("D11").Value + 3
Sheets(3).Range("R14").Value = Sheets(3).Range("D11").Value + 4
Sheets(3).Range("F12").Value = Sheets(3).Range("D11").Value - Sheets(3).Range("F14").Value
ElseIf Sheets(1).Range("A14").Value = 4 Then
Sheets(3).Range("F14").Value = Sheets(3).Range("D11").Value - 3
Sheets(3).Range("H14").Value = Sheets(3).Range("D11").Value - 2
Sheets(3).Range("J14").Value = Sheets(3).Range("D11").Value - 1
Sheets(3).Range("L14").Value = Sheets(3).Range("D11").Value
Sheets(3).Range("N14").Value = Sheets(3).Range("D11").Value + 1
Sheets(3).Range("P14").Value = Sheets(3).Range("D11").Value + 2
Sheets(3).Range("R14").Value = Sheets(3).Range("D11").Value + 3
Sheets(3).Range("F12").Value = Sheets(3).Range("D11").Value - Sheets(3).Range("F14").Value
ElseIf Sheets(1).Range("A14").Value = 5 Then
Sheets(3).Range("F14").Value = Sheets(3).Range("D11").Value - 4
Sheets(3).Range("H14").Value = Sheets(3).Range("D11").Value - 3
Sheets(3).Range("J14").Value = Sheets(3).Range("D11").Value - 2
Sheets(3).Range("L14").Value = Sheets(3).Range("D11").Value - 1
Sheets(3).Range("N14").Value = Sheets(3).Range("D11").Value
Sheets(3).Range("P14").Value = Sheets(3).Range("D11").Value + 1
Sheets(3).Range("R14").Value = Sheets(3).Range("D11").Value + 2
Sheets(3).Range("F12").Value = Sheets(3).Range("D11").Value - Sheets(3).Range("F14").Value
ElseIf Sheets(1).Range("A14").Value = 6 Then
Sheets(3).Range("F14").Value = Sheets(3).Range("D11").Value - 5
Sheets(3).Range("H14").Value = Sheets(3).Range("D11").Value - 4
Sheets(3).Range("J14").Value = Sheets(3).Range("D11").Value - 3
Sheets(3).Range("L14").Value = Sheets(3).Range("D11").Value - 2
Sheets(3).Range("N14").Value = Sheets(3).Range("D11").Value - 1
Sheets(3).Range("P14").Value = Sheets(3).Range("D11").Value
Sheets(3).Range("R14").Value = Sheets(3).Range("D11").Value + 1
Sheets(3).Range("F12").Value = Sheets(3).Range("D11").Value - Sheets(3).Range("F14").Value
ElseIf Sheets(1).Range("A14").Value = 7 Then
Sheets(3).Range("F14").Value = Sheets(3).Range("D11").Value - 6
Sheets(3).Range("H14").Value = Sheets(3).Range("D11").Value - 5
Sheets(3).Range("J14").Value = Sheets(3).Range("D11").Value - 4
Sheets(3).Range("L14").Value = Sheets(3).Range("D11").Value - 3
Sheets(3).Range("N14").Value = Sheets(3).Range("D11").Value - 2
Sheets(3).Range("P14").Value = Sheets(3).Range("D11").Value - 1
Sheets(3).Range("R14").Value = Sheets(3).Range("D11").Value
Sheets(3).Range("F12").Value = Sheets(3).Range("D11").Value - Sheets(3).Range("F14").Value
End If
If Sheets(1).Range("A14").Value = 7 Then 'Di
Sheets(3).Range("N12").Value = Sheets(1).Range("I8").Value
ElseIf Sheets(1).Range("A14").Value = 6 And Sheets(1).Range("I8").Value = 52 Then 'Sa
Sheets(3).Range("N12").Value = 1
ElseIf Sheets(1).Range("A14").Value = 6 And Sheets(1).Range("I8").Value = 53 Then
Sheets(3).Range("N12").Value = Sheets(1).Range("I8").Value
ElseIf Sheets(1).Range("A14").Value <> 6 Or Sheets(1).Range("A14").Value <> 7 Then
Sheets(3).Range("N12").Value = 1
End If
Worksheets(3).Protect "TSA3X8"
End If
End Sub
Cette ensemble peut paraître un peu lourd pour certains, mais il est rapide et il fonctionne à merveille il me permet de faire des tours de service 3x8 sur un nombre d'agent important et sur l'année, et je précise que je ne suis pas un pro du VBA.
Cordialement
Cordialement

Raymond PENTIER · Answer

Une année bissextile est une année de 366 jours au lieu de 365, c'est-à-dire une année comprenant un 29 février. Le terme vient du latin bis-sextilis, qui signifie « deux fois (bis) sixième (sextus) ».
Depuis l'instauration du calendrier grégorien, sont bissextiles les années divisibles par 4 mais non divisibles par 100, ou divisibles par 400. 
Ainsi, l'an 1900 n'était pas bissextile, car divisible par 100 et non divisible par 400. L'an 2000 était bissextile car divisible par 400.
Le calendrier julien avait une année moyenne de 365,25 jours, au lieu des 365,2422 jours nécessaires au cycle terrestre. Ce qui a engendré l'accumulation d'une dizaine de jours de retard en quinze siècles. Ce retard fut corrigé en supprimant des jours.https://www.techno-science.net/definition/3052.html

Mon costume, lui, est bitextile, car taillé dans un tissu mixte laine+lin.

Nombre de semaines dans une année

7 réponses

Discussions similaires