Tri

[Julien]

Est il possible de trier une liste selon la couleur de fond?
C'est à dire mettre ensemble toutes les cellules jaunes.
MERCI

 

[BabMax]

Salut Julien

Voila une copie de code pour trier sur les cellules A1 à A12

Sub TriCouleurs()
Dim CompteurTri As Integer, CelluleTri As Integer, PositionCellule As Integer
Dim CouleurA As Integer, CouleurB As Integer, CouleurTri As Integer
Dim FlagMut As Boolean
Range("A1:A12").Select
For CelluleTri = 1 To 12
FlagMut = False
CouleurTri = Cells(CelluleTri, 1).Interior.ColorIndex
PositionCellule = CelluleTri + 1
Do
CouleurB = Cells(PositionCellule, 1).Interior.ColorIndex
If CouleurB = CouleurTri Then
FlagMut = True
Cells(PositionCellule, 1).Interior.ColorIndex = Cells(CelluleTri + 1, 1).Interior.ColorIndex
Cells(CelluleTri + 1, 1).Interior.ColorIndex = CouleurTri
End If
PositionCellule = PositionCellule + 1
Loop While Not FlagMut And PositionCellule <= 12
Next CelluleTri
End Sub