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.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (12403) s’applique à Microsoft Excel 2007, 2010, 2013 et 2016.

Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici: link: / excel-Naming_Tabs_for_Weeks [Nommer les onglets pour les semaines].