Lorsque vous démarrez un nouveau classeur, il est très courant de nommer chaque feuille de calcul après un mois différent de l’année. Si vous faites cela un peu, vous savez qu’il peut être fastidieux de renommer chaque feuille de calcul, à son tour, exactement comme vous avez besoin.

La macro suivante a été développée pour vous aider dans ces situations. Il vérifie les noms des feuilles de calcul dans votre classeur, en les renommant en mois de l’année s’ils commencent par les lettres «Feuille». S’il n’y a pas assez de feuilles dans le classeur, il ajoute des feuilles, si nécessaire, pour chaque mois de l’année.

Sub DoMonths()

Dim J As Integer     Dim K As Integer

For J = 1 To 12         If J <= Sheets.Count Then             If Left(Sheets(J).Name, 5) = "Sheet" Then                 Sheets(J).Name = MonthName(J)

Else                 Sheets.Add.Move after:=Sheets(Sheets.Count)

ActiveSheet.Name = MonthName(J)

End If         Else             Sheets.Add.Move after:=Sheets(Sheets.Count)

ActiveSheet.Name = MonthName(J)

End If     Next J

For J = 1 To 12         If Sheets(J).Name <> MonthName(J) Then             For K = J + 1 To Sheets.Count                 If Sheets(K).Name = MonthName(J) Then                     Sheets(K).Move Before:=Sheets(J)

End If             Next K         End If     Next J

Sheets(1).Activate End Sub

La dernière étape de la macro consiste à placer les feuilles de calcul dans le bon ordre, pour les mois 1 à 12. Le résultat est que s’il vous reste d’autres feuilles de calcul dans le classeur (en d’autres termes, vous en aviez certaines qui ne commençaient pas par les lettres «Sheet», puis ces feuilles de calcul se retrouvent à la fin du classeur, après les 12 mois.

Notez que la macro utilise la fonction MonthName, qui est intégrée à VBA. Elle renvoie le nom complet du mois référencé par le nombre (1 à 12) qui lui est passé (si vous essayez de l’utiliser avec un nombre en dehors de cette plage, il renvoie une erreur.)

_Remarque: _

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 contenant des informations utiles.

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

ExcelTips est votre source de formation Microsoft Excel rentable.

Cette astuce (11148) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365. Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici:

lien: / excel-Sheets_for_Months [Feuilles de mois].