Tri sur un format de cellule

Bonjour.
Si tu es intéressé par une macro, fais signe.
Cordialement.
Daniel
"Pascal" <Pascal@discussions.microsoft.com> a écrit dans le message de news:
AD8B2BE5-E299-4E47-8254-D6EE0E474A5C@microsoft.com...

Bonjour à tous,
Est-il possible de trier une colonne sur un format de cellule ?
Un code couleur par exemple ?
Merci pour vos réponses

Donc je fais signe mais si pas trop compliqué à mettre en oeuvre, je ne suis
pas un pro,
Salutations
Pascal

Bonjour.
Si tu es intéressé par une macro, fais signe.
Cordialement.
Daniel

Essaie :
Sub test()
Dim c As Range
Selection.EntireColumn.Insert
For Each c In Selection
c = c.Offset(0, 1).Interior.ColorIndex
Next c
Selection.Resize(, 2).Select
Selection.Sort key1:=Selection.Resize(1, 1), header:=xlNo
Selection.Resize(, 1).EntireColumn.Delete
End Sub
Daniel
"Pascal" <Pascal@discussions.microsoft.com> a écrit dans le message de news:
1F65E3A3-840D-46B9-8A4D-780D9A2A7B64@microsoft.com...

Donc je fais signe mais si pas trop compliqué à mettre en oeuvre, je ne
suis
pas un pro,
Salutations
Pascal

Bonjour.
Si tu es intéressé par une macro, fais signe.
Cordialement.
Daniel

Une mine je te dis ce forum,
Une mine !
Je ne connais rien aux macros et pourtant çà marche !
Merci msieur !

Bonne fin de journée

Essaie :
Sub test()
Dim c As Range
Selection.EntireColumn.Insert
For Each c In Selection
c = c.Offset(0, 1).Interior.ColorIndex
Next c
Selection.Resize(, 2).Select
Selection.Sort key1:=Selection.Resize(1, 1), header:=xlNo
Selection.Resize(, 1).EntireColumn.Delete
End Sub
Daniel
"Pascal" <Pascal@discussions.microsoft.com> a écrit dans le message de news:
1F65E3A3-840D-46B9-8A4D-780D9A2A7B64@microsoft.com...

Donc je fais signe mais si pas trop compliqué à mettre en oeuvre, je ne
suis
pas un pro,
Salutations
Pascal

Bonjour.
Si tu es intéressé par une macro, fais signe.
Cordialement.
Daniel