Tri par couleur de police

[archi]

Bonjour,

ci-joint un fichier où j'ai un blème de macro pour le tri de couleur de police dans un tableau.
merci par avance de votre aide
bye

 

[BOISGONTIER]

Re : Tri par couleur de police

Bonjour,

Sub TriCoulPolice()
    Columns("C:C").Insert Shift:=xlToRight
    For Each c In Range("b2", [b65000].End(xlUp))
      c.Offset(0, 1) = c.Font.ColorIndex
    Next c
    Range("A2").CurrentRegion.Sort , Key1:=[C2], Header:=xlYes
    Columns("c:c").Delete
End Sub

JB
Formation Excel VBA JB

 

[pierrejean]

Re : Tri par couleur de police

bonjour archi

Voila ton tri

Je te laisse reperer les modifications du code

Edit Salut BOISGONTIER

 

[archi]

Re : Tri par couleur de police

merci à vous
bye