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     Dim sMo(12) As String

sMo(1) = "January"

sMo(2) = "February"

sMo(3) = "March"

sMo(4) = "April"

sMo(5) = "May"

sMo(6) = "June"

sMo(7) = "July"

sMo(8) = "August"

sMo(9) = "September"

sMo(10) = "October"

sMo(11) = "November"

sMo(12) = "December"



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

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

ActiveSheet.Name = sMo(J)

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

ActiveSheet.Name = sMo(J)

End If     Next J

For J = 1 To 12         If Sheets(J).Name <> sMo(J) Then             For K = J + 1 To Sheets.Count                 If Sheets(K).Name = sMo(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 est qu’elle place 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 «Feuille», puis ces feuilles de calcul se retrouvent à la fin du classeur, après les 12 mois.

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

`link: / 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 (2017) 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-Sheets_ for_Months [Feuilles pour les mois] `.