Comment trier les onglets des feuilles de calcul par couleur dans Excel ?

Lorsque vous travaillez avec de grands classeurs Excel contenant plusieurs feuilles de calcul, attribuer des couleurs aux onglets des feuilles aide à les catégoriser et à les organiser visuellement. Cependant, Excel ne fournit pas d'option intégrée pour trier automatiquement les onglets des feuilles par couleur. Dans cet article, nous explorerons deux méthodes efficaces pour trier les onglets des feuilles par couleur dans Excel.

Trier les onglets des feuilles de calcul par couleur avec du code VBA

Trier les onglets des feuilles de calcul par couleur avec Kutools pour Excel

Trier les onglets des feuilles de calcul par couleur avec du code VBA

En utilisant le code VBA suivant, vous pouvez trier les onglets par couleur. Veuillez procéder comme suit :

1. Cliquez sur "Développeur" > "Visual Basic", une nouvelle fenêtre "Microsoft Visual Basic pour applications" s'affichera, cliquez sur "Insérer" > "Module", puis saisissez le code suivant dans le Module :

VBA : Trier les feuilles par couleurs.

Sub SortWorkBookByColor()
'UpdatebyExtendoffice
Dim xArray1() As Long
Dim xArray2() As String
Dim n As Integer
Application.ScreenUpdating = False
If Val(Application.Version) >= 10 Then
    For i = 1 To Application.ActiveWorkbook.Worksheets.Count
        If Application.ActiveWorkbook.Worksheets(i).Visible = -1 Then
            n = n + 1
            ReDim Preserve xArray1(1 To n)
            ReDim Preserve xArray2(1 To n)
            xArray1(n) = Application.ActiveWorkbook.Worksheets(i).Tab.Color
            xArray2(n) = Application.ActiveWorkbook.Worksheets(i).Name
        End If
    Next
    For i = 1 To n
        For j = i To n
            If xArray1(j) < xArray1(i) Then
                temp = xArray2(i)
                xArray2(i) = xArray2(j)
                xArray2(j) = temp
                temp = xArray1(i)
                xArray1(i) = xArray1(j)
                xArray1(j) = temp
            End If
        Next
    Next
    For i = n To 1 Step -1
        Application.ActiveWorkbook.Worksheets(CStr(xArray2(i))).Move after:=Application.ActiveWorkbook.Worksheets(Application.ActiveWorkbook.Worksheets.Count)
    Next
End If
Application.ScreenUpdating = True
End Sub

2. Ensuite, appuyez sur "F5" ou cliquez sur le bouton "Exécuter" pour exécuter le code. Et tous les onglets des feuilles de calcul ont été triés par couleur.

Trier les onglets des feuilles de calcul par couleur avec Kutools pour Excel

Avec Kutools, vous pouvez rapidement réorganiser vos onglets en fonction de leurs couleurs, ce qui vous fait gagner du temps et élimine le besoin de tri manuel ou de tri avec du code VBA. Dans cette section, nous allons vous montrer comment utiliser Kutools pour Excel pour trier les onglets des feuilles de calcul par couleur facilement.

Si vous avez installé Kutools pour Excel, vous pouvez trier les onglets des feuilles de calcul en suivant les étapes suivantes :

1. Cliquez sur "Kutools Plus" > "Feuille de calcul" > "Trier toutes les feuilles".

2. Dans la boîte de dialogue "Trier toutes les feuilles", cliquez sur le bouton "Tri par couleur", vous verrez le nouvel ordre des onglets dans le volet "Après le tri".

3. Puis cliquez sur "OK" pour trier les onglets.

Cette fonctionnalité peut rapidement réorganiser toutes les feuilles de calcul dans le classeur actif. Elle prend en charge plusieurs types de tri, y compris "Tri alphabétique", "Tri exact", "Tri par couleur" et "Tri inverse". De plus, vous pouvez également déplacer les feuilles vers le haut ou vers le bas, et réinitialiser le tri.

Trier les onglets des feuilles de calcul par couleur dans Excel aide à améliorer l'organisation et facilite la navigation dans les grands classeurs. Bien qu'Excel manque d'une option intégrée pour cela, cet article présente deux méthodes utiles pour vous. Choisissez la méthode qui convient le mieux à vos besoins, et tirez pleinement parti de la fonctionnalité de couleur des onglets d'Excel pour rationaliser votre flux de travail ! Si vous êtes intéressé par l'exploration de plus d'astuces et de conseils Excel, notre site Web propose des milliers de tutoriels.

Article connexe :

Trier les feuilles de calcul par ordre alphabétique / alphanumérique dans Excel