Trier par ordre alphabétique des onglets d'une certaine couleur [Résolu]

[shimuno]

Bonjour

J'ai un classeur avec 20 onglets noirs, 5 onglet bleu foncé et 40 onglets bleu clair. Je souhaiterais trier par ordre alphabétique uniquement les onglets bleu clair.

Pour le tri par ordre alphabétique en lui même, j'ai trouvé ceci :

Code :

1
2
3
4
5
6
7
Sub Tri
For i = 41 to Sheets.Count
For j = i + 1  to Sheets.Count
If UCase(Sheets(i)).Name) > UCase(Sheets(j).Name) Then Sheets(j).Move before:=Sheets(i)
Next j
Next i
End Sub

(Merci à excel-competence.over-blog.com)

Problème : je n'arrive pas du tout à ne trier que les onglets d'une couleur définie sans mélanger tous les autres onglets.

Des idées ?

Merci beaucoup pour votre aide.

[CodeFacile]

Au moment de faire le tri , tu ajoutes un test sur la couleur d'onglet

Code :

1
2
3
4
5
6
7
8
 
Sub Tri
For i = 41 to Sheets.Count
For j = i + 1  to Sheets.Count
If UCase(Sheets(i)).Name) > UCase(Sheets(j).Name) and Sheets( i).Tab.ColorIndex = 44 Then Sheets(j).Move before:=Sheets(i)
Next j
Next i
End Sub

(Je te laisse le soin de remplacer 44 par la couleur de ton fichier)

[shimuno]

Merci !

Plus exactement, il faut aussi ajouter la condition de couleur à sheets(j) :

Code :

1
2
3
4
5
6
7
8
Sub Tri()
 
For i = 1 To Sheets.Count
For j = i + 1 To Sheets.Count
If UCase(Sheets(i).Name) > UCase(Sheets(j).Name) And Sheets(i).Tab.ColorIndex = 19 And Sheets(j).Tab.ColorIndex = 19 Then Sheets(j).Move before:=Sheets(i)
Next j
Next i
End Sub

Merci pour tout !