Bonjour,

Je souhaiterai trier les onglets des pages qui sont d'une couleur jaune pâle (couleur 36) par ordre alphabétique en sachant que ces onglets jaunes doivent se trouver après les onglets ayant une autre couleur:

J'ai testé ce code qui fonctionne mais dès que je rajoute la condition de la couleur ça veut plus:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub tri_onglet()
    Dim i As Integer, j As Integer, num As Integer, nom As String
 
    For i = 2 To Sheets.Count
        num = 0: nom = Sheets(i).Name
        For j = i - 1 To 1 Step -1
            If Sheets.Tab.ColorIndex = 36 Then
            If Sheets(i).Name < Sheets(j).Name Then num = j
        Next j
        If num > 0 Then Sheets(i).Move before:=Sheets(num)
    Next i
End If
End Sub
Merci.