trier par couleur

[chl07]

Bonjour.

Dans une feuille j'ai 20 lignes et 5 colonnes.
Ces lignes sont colorées par 5 couleurs.
Comment faire pour trier et regrouper ces lignes par couleurs identiques?

Merci @+

Christian

 

[pat1545.]

Salut,

tu mets ceci dans un module standard (ALT F11 Insertion/ module )

Function MyColor(CkCell As Object)
Application.Volatile True 'ajouter un maintenant() pour forcer le recalcul de cette fonction
MyColor = Abs(CkCell.Interior.ColorIndex)
End Function

et puis : =mycolor(A1)
tu tires vers le bas et puis tu trie

Bye