A archi XLDnaute Impliqué 6 Juillet 2008 #1 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 Pièces jointes DVD.xls 30.5 KB · Affichages: 92 DVD.xls 30.5 KB · Affichages: 84 DVD.xls 30.5 KB · Affichages: 97
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 XLDnaute Barbatruc Repose en paix 6 Juillet 2008 #2 Re : Tri par couleur de police Bonjour, Code: 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 Pièces jointes xx.xls 27.5 KB · Affichages: 113 xx.xls 27.5 KB · Affichages: 116 xx.xls 27.5 KB · Affichages: 119 Vote positif 0 Vote négatif
Re : Tri par couleur de police Bonjour, Code: 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 XLDnaute Barbatruc 6 Juillet 2008 #3 Re : Tri par couleur de police bonjour archi Voila ton tri Je te laisse reperer les modifications du code Edit Salut BOISGONTIER Pièces jointes DVD.zip 10.8 KB · Affichages: 77 DVD.zip 10.8 KB · Affichages: 77 DVD.zip 10.8 KB · Affichages: 74 Vote positif 0 Vote négatif
Re : Tri par couleur de police bonjour archi Voila ton tri Je te laisse reperer les modifications du code Edit Salut BOISGONTIER
A archi XLDnaute Impliqué 6 Juillet 2008 #4 Re : Tri par couleur de police merci à vous bye Vote positif 0 Vote négatif