XL 2010 Date incrémentée sur chaque feuille

[Bidouilleur]

Bonjour,

Je crois que mon problème doit avoir été traité plusieurs fois sur ce forum, mais je m'y perds un peu et les besoins ne sont jamais vraiment identiques d'un utilisateur à un autre.
J'ai aussi cru comprendre qu'il valait mieux mettre un premier fichier un pièce jointe.
Donc j'aurai plusieurs objectifs :
1 - A partir d'une feuille nommée 36 qui représente le numéro de la semaine, créer toutes les autres feuilles de l'année de 36 à 52 et de 1 à 35.
2 - Nommez chaque feuille par son numéro de semaine (déjà fait sur la feuille 36) mais cette solution est peut-être incompatible avec la création des feuilles automatiquement....
3 - Incrémenter la date de 7 en 7 dans la cellule B2 de chaque feuille depuis celle de la première feuille 36.

Merci pour votre aide

 

[mapomme]

Bonjour @Bidouilleur,

Voir le code dans module1 du fichier joint. Le code ne peut être exécuté qu'une seule fois (sauf on si supprime toutes les feuilles sauf la semaine 36).
A la seconde exécution, la macro aboutit à une erreur. C'est fait exprès.
La formule de la cellule A1 a été simplifiée. Une année pouvant compter jusqu'à 53 semaines, la macro en tient compte.

edit: préférer la version v1a

Sub Autres_Semaines()
Dim i&
  Application.ScreenUpdating = False
  With ThisWorkbook
    For i = 35 To 1 Step -1
      .Worksheets(CStr(i + 1)).Copy before:=.Worksheets(CStr(i + 1))
      ActiveSheet.Range("b2") = ActiveSheet.Range("b2") - 7
      ActiveSheet.Name = ActiveSheet.Range("a1")
    Next i
    For i = 37 To 53 Step 1
      .Worksheets(CStr(i - 1)).Copy after:=.Worksheets(CStr(i - 1))
      ActiveSheet.Range("b2") = ActiveSheet.Range("b2") + 7
      If ActiveSheet.Range("A1") <= 1 Then
        Application.DisplayAlerts = False
        ActiveSheet.Delete
        Application.DisplayAlerts = True
        Exit Sub
      End If
      ActiveSheet.Name = ActiveSheet.Range("a1")
    Next i
  End With
End Sub

 

[Bidouilleur]

Merci beaucoup "mapomme", c'est topissime !
Je regarderai demain si je peux configurer le fichier pour caler la date de la première feuille et éventuellement le numéro de la première semaine, mais quoiqu'il en soit ça me plaît déjà comme ça !
Encore merci !