Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !