Trier onglet par couleur et de A à Z

Bonjour,

J'aimerai pouvoir trier mes onglets par couleur dans un premier temps et dans chaque groupe de couleur de A à Z ?

je n'ai rien trouvé sur le forum est-ce possible?

Merci.

Salut reglaet,

je serai aussi succinct que toi : oui !

A+

Bonjour,

"Trier les onglets par couleur" est-ce que cela veut dire regrouper les onglets de même couleur ou bien afficher les onglets dans un ordre précis selon la valeur de sa couleur, par exemple en suivant une "LUT" (look up table) du rouge(chaud) au bleu (froid) ?

Par exemple il existe ce code :

Sub SortWorkBookByColor()
'Updateby20140624
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

Bonjour oxydum,

merci pour cet exemple mais c'est en fait regrouper les onglets par couleur et dans le groupe de couleur les trier par ordre alphabétique si c'est possible.

Bonne journée!!!

Salut reglaet,

et un fichier, peut-être, non ?

A+

Bonjour Curulis57,

Ci joint mon fichier.

Merci bonne journée.

Avec un mot de passe, évidemment... Intéressant!

Milles Excuses Curulis57 ci joint la version sans mot de passe.

Salut Reglaet,

voici, en plaçant d'office la feuille 'Menu' en première position.

J'ai "caché" un petit bouton bleu dans la feuille 'Menu' pour trier à la demande.

Ah, zut, je remarque à l'instant que, dans les déclarations de variables, sItem$ doit être effacé car inutile...

Private Sub cmdGO_Click()
'
Dim iStep1%, iStep2%, sItem$
'
iStep1 = 1
iStep2 = 1
Worksheets("Menu").Move before:=Sheets(1)
For X = iStep1 To Sheets.Count
    For Y = iStep1 + 1 To Sheets.Count
        If Sheets(Y).Tab.Color = Sheets(X).Tab.Color Then
            iStep2 = iStep2 + 1
            Sheets(Y).Move after:=Sheets(X)
        End If
    Next
    If iStep2 > iStep1 Then
        For Y = iStep1 To iStep2
            For Z = iStep1 + 1 To iStep2
                If Sheets(Z).Name < Sheets(Y).Name Then Sheets(Z).Move before:=Sheets(Y)
            Next
        Next
    End If
    iStep1 = iStep2 + 1
    X = iStep2
    iStep2 = iStep1
Next
'
End Sub

A+

Super Curulis57 c'est exactement le résultat attendu.

Un grand merci, je te souhaite un bon week end.