N° de semaine automatique

bonjour

je souhaiterais pour l'année en cours creer une nouvelle feuille avec comme nom l'année

puis dans celle ci mettre les semaine ainsi que debut et fin de semaine comme dans exemple joint

merci de m'orienter ou de m'aider

bonjour

ton fichier répond à ta question, il suffit de changer le nom de l'onglet

je ne comprends donc pas

Moi non plus je ne comprends pas bien,

mais si ta question est de connaître le début et la fin d'une semaine donnée, voici un exercice ...

Pour une année complète

avec asservissement de l'année au nom de l'onglet

et MFC sur semaine 53 éventuelle !

Me dire si vous voyez des erreurs ....

Bonjour,

j'ai compris différemment : que ton problème était la répétition automatique des semaines à cheval sur 2 mois.

Pour te faciliter la lecture des formules la colonne principale est D, les autres en dépendent.

Formules différentes en D2:D4 et en A2:A2 à cause de la semaine 52 de décembre absente qui rompt la logique.

eric

Edit : voir fichier plus bas

Eric, Steelson, quelque chose m'échappe ! C'est le même fichier ! ?

Erreur en 2021 : semaine 53 affichée (c'est la semaine 1 de 2022). [pas encore regardé pourquoi...]

Cordialement.

Ah ben tu as raison

J'ai reposté celui de steelson au lieu du mien

J'avoue avoir eu un peu peur d'avoir écrasé le mien, mais non, oufff

Le voici

eric

PS : Erreur en 2021 : semaine 53 affichée (c'est la semaine 1 de 2022).

De source sure ??? J'ai 2 autres calendriers qui me disent semaine 53 également

Re,

Le 01/01/2021 est un vendredi.

Les années à 53 semaines ont le 01/01 un jeudi, ou un mercredi si elles sont aussi bissextiles.

Par contre 2020 a bien 53 semaines (correspond au dernier cas).

Mais ça ne colle pas avec les définitions de la 1ère semaine ISO

• la première semaine avec au moins quatre jours dans la même année civile
• la semaine du premier jeudi de l'année civile
• la semaine du 4 janvier

La semaine du L 28/12 au J 31/12/2020 (4 jours) appartient bien à 2020 (sem 53)

Edit : ah, tu parles de la fin 2021, je n'avais pas bien lu ! Faut que je regarde mon fichier alors.

Bon, je sors bien sem 52 comme dernière semaine de 2021, ça ne devait pas etre pour moi

C'était dans le fichier de Steelson...

Du coup j'ai fait aussi ma version ! Je la livre...

On va de la ligne 2 à 65.

La formule en D est sur la colonne...

En C2 et B2 formule différente, en A2 aussi (janvier en dur).

Ligne 3 à 65 formule identique pour A et C (par colonne).

Formule différente en B de B63 à B65.

Les lignes 63 à 65 sont éventuellement masquées par MFC.

Un bouton-toupie pour faire varier l'année...

Cordialement.

Bon alors qu'est-ce que cela veut dire ? j'avais une erreur ? (c'est possible)

Il ne me semble pas ... l'année 2020 affiche bien 53 semaines, ainsi que 2026 ! Alors, c'est le café du commerce ici ?

Regarde 2021 !

Hello MFerrand,

Oui je viens de regarder ... l'année 2020 comporte 53 semaines, mais 2021 qui commence semaine 53 de 2020 comporte 52 semaines. Ou bien j'ai la berlue !

2021 commence le 4 janvier et se termine le 2 janvier 2022 ce qui fait 52 semaines. Le 1er janvier de 2021 étant sur la semaine 53 de 2020.

Oui c'est ça.

Mais tu affichais une semaine 53 de 2021...

Exact, mea culpa !

C'est la formule de la MFC qui merdouille !

Je corrige pour la forme (et l'honneur)

Merci MFerrand...

du reste, ta présentation est pas mal ! mais il faudrait ajouter l' "année ISO" avec l'excellentissime formule de Jean-Eric https://forum.excel-pratique.com/excel/somme-et-nb-de-ligne-par-seamine-et-mois-t96600.html?hilit=iso#p560063

ce qui donnerait

merci a tous pour l'aide apporté

encore une petite chose comment générer une feuille avec l'année n+1

je m'explique

je souhaite que la feuille en cours se nomme 2017, et que l'on cré une autre feuille 2018 qui reprend donc les semaines et des que l'on passe a 2018 on cré 2019

Dans mon cas, tu copies l'intégralité de la feuille en ouvrant un nouvel onglet que tu nommes 2018.

Bonjour,

Tu fais une copie et tu n'as que le nom et l'année en G1 à changer...

Steelson : Tu m'as fait réfléchir avec la formule de Jean-Eric ! Je n'avais pas capté le MOD(D2 - 2;7), qui allait toujours renvoyer inévitablement 0 ! J'avais seulement oublié que la formule devait pouvoir s'appliquer aux autres jours... !

Mais comme on ne teste que des lundis, on pourrait se contenter ici de : D2 + 3.

Cordialement.

edit : En effet, tu as une formule chez Steelson qui t'aligne l'année sur le nom de la feuille...

merci encore voici comment j'ai fait

un module

Function FeuilExiste(F As String) As Boolean

    On Error Resume Next
    FeuilExiste = Not Sheets(F) Is Nothing
End Function

et au demarrage

Private Sub Workbook_Open()
Sheets("Feuil1").Visible = True
année = Year(Date)
'************************
Dim Feuil As String

   For i = année To année + 1
   Feuil = année
    If Not FeuilExiste(Feuil) Then
     ' MsgBox "L'onglet " & Feuil & " n'existe pas dans le classeur actif."
    Sheets("Feuil1").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
        ActiveSheet.Name = année

    End If

    année = année + 1
    Next i
    '**************************************

Sheets("Feuil1").Visible = False

'Worksheets(feuille).Select

End Sub

et dans feuil1 en g1

=STXT(CELLULE("nomfichier";G1);TROUVE("]";CELLULE("nomfichier";G1))+1;32)

le probleme c'est que je souhaite masquer toute les feuille sauf l'année en cours

DansPrivate Sub Workbook_Open() tu mets à falsela propriété visible de toutes les feuilles sauf celle nomméeannee(aujourdhui())

essaie, à intégrer à ta procédure open

Dim i As Integer
For i = 1 To Sheets.Count
    'attention il doit toujours y avoir une feuille visible
    If Sheets(i).Name <> Format(Now, "yyyy") Then Sheets(i).Visible = False
Next