tri des feuilles

[azzouzze]

bonjour,

j'ai une première macro qui me fait un trie par ordre alphabétique de mes feuilles.
Je cherche maintenant à trier suivant la couleur ,qui sont Vert, orange et rouge...,de l'onglet et par ordre alphabétique
voici la macro qui trie par ordre alphabétique:

' Macro permettant de trier les feuilles du classeur par ordre alphabétique
Sub TriNomsOnglets()
Dim i As Integer, J As Integer
For i = 1 To Sheets.Count
For J = 1 To i - 1
If UCase(Sheets(i).Name) < UCase(Sheets(J).Name) Then
Sheets(i).Move before:=Sheets(J)
Exit For
End If
Next J
Next i
End Sub



Merci d'avance

 

[2passage]

Re : tri des feuilles

Bonjour,

a priori, je dirais :

Sub TricouleurOnglets()
Dim i As Integer, J As Integer
For i = 1 To Sheets.Count
  For J = 1 To i - 1
   If UCase(Sheets(i).Tab.ColorIndex) < UCase(Sheets(J).Tab.ColorIndex) Then
       Sheets(i).Move before:=Sheets(J)
       Exit For
    End If
  Next J
Next i
End Sub

Mais je ne connais pas "l'ordre" des couleurs.

A+

 

[azzouzze]

Re : tri des feuilles

Merci pour ta réponse. c est ce que j attendais mais comme il y à trois couleurs, ca me fais pas l'ordre que je veux.
je vais changer les couleurs je pense que ca ira.