Lorsque vous démarrez un nouveau classeur, un scénario courant consiste à créer une année de feuilles de calcul, une pour chaque semaine de l’année. En d’autres termes, un classeur peut contenir 52 ou 53 feuilles de calcul, selon le nombre de semaines dans une année donnée.

Si vous avez besoin de créer un tel classeur, vous savez que créer et nommer individuellement toutes les feuilles de calcul peut être un véritable problème. C’est là qu’une macro serait utile. La macro suivante ajoutera le nombre approprié de feuilles de calcul, puis renommera toutes les feuilles de calcul en fonction du numéro de semaine (01 à 52).

Sub YearWorkbook1()

Dim iWeek As Integer     Dim sht As Variant     Application.ScreenUpdating = False     Worksheets.Add After:=Worksheets(Worksheets.Count), _       Count:=(52 - Worksheets.Count)

iWeek = 1     For Each sht In Worksheets         sht.Name = "Week " & Format(iWeek, "00")

iWeek = iWeek + 1     Next sht     Application.ScreenUpdating = True End Sub

Si vous avez besoin d’un moyen de créer des feuilles de calcul indiquant la date de fin de chaque semaine pendant un an, une macro différente est nécessaire.

Sub YearWorkbook2()

Dim iWeek As Integer     Dim sht As Variant     Dim sTemp As String     Dim dSDate As Date

sTemp = InputBox("Date for the first worksheet:", "End of Week?")

dSDate = CDate(sTemp)

Application.ScreenUpdating = False     Worksheets.Add After:=Worksheets(Worksheets.Count), _       Count:=(52 - Worksheets.Count)

For Each sht In Worksheets         sht.Name = Format(dSDate, "dd-mmm-yyyy")

dSDate = dSDate + 7     Next sht     Application.ScreenUpdating = True End Sub

Cette version de la macro vous demande une date de début. Il utilise ensuite cette date pour commencer à nommer les différentes feuilles de calcul dans le classeur. Si vous entrez une valeur qui ne peut pas être traduite en date, la macro générera une erreur.

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (2018) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Naming_Tabs_for_Weeks [Nommer les onglets pendant des semaines].