XL 2010 Filtrer et mise en couleur de cellules sur une colonne

[Louisssss]

Bonjour à tous,
Merci dans un premier temps de prendre un moment pour me lire,
J'essaie via une macro d'automatiser la colonne 1 de mon classeur en la filtrant selon les données et en les regroupant ensemble,
Par exemple si il y a plusieurs fois le même nom cela sera trier de sorte que ceux ci soit ensemble.
De plus, il faut filtrer avec des couleurs pour que chaque nom et une couleur associé, si deux fois le même nom alors ils auront la même couleur.
Voir les PJ avec la photo avant comme le départ et la photo après comme fin,
Merci beaucoup

 

[sylvanu]

Bonsoir Louisssss,
Ce serait mieux avec un petit fichier test.

 

[Phil69970]

Bonjour @Louisssss et Sylvain

Je te propose ceci mais comme le dit Sylvain avec un fichier c'est mieux

Sub Tri()
Range("A:J").Resize(Range("A" & Rows.Count).End(xlUp).Row).Sort key1:=Range("A1"), order1:=xlDescending, Header:=xlYes
End Sub

A mon avis les couleurs ne servent à rien.... à part se faire plaisir et aimer les illuminations.....

Merci de ton retour

 

[Louisssss]

Bonjour @Louisssss et Sylvain

Je te propose ceci mais comme le dit Sylvain avec un fichier c'est mieux



A mon avis les couleurs ne servent à rien.... à part se faire plaisir et aimer les illuminations.....

Merci de ton retour

Bonjour Messieurs,
Merci pour votre aide,
Ci-joint le fichier concerné,
J'ai besoin de mettre des couleurs dessus, et c'est la dessus que je bloque

 

[Phil69970]

Re

@Louisssss

Je t'ai proposé un code VBA pour le tri

Sub TriAsc() 'Tri ascendant
Range("A:J").Resize(Range("A" & Rows.Count).End(xlUp).Row).Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlYes
End Sub

Sub TriDes() 'Tri Descendant
Range("A:J").Resize(Range("A" & Rows.Count).End(xlUp).Row).Sort key1:=Range("A1"), order1:=xlDescending, Header:=xlYes
End Sub

Pour les couleurs cela sera sans moi car je ne fais pas les guirlandes de Noël, désolé !

 

[sylvanu]

Bonjour Louisss, Phil,
Pour éviter le sapin de noël ( ainsi que tous les problèmes s'y afférant ) un essai en PJ avec des couleur soft qui changent à chaque changement de nom.

 

[Louisssss]

Bonjour Sylvanu,
Merci pour ton retour, petite correction, il faudra que les couleurs soit uniquement sur la première colonne et que pour chaque donnée identique il y ai la même couleur, de sorte que toutes les cellules ai une couleur défini,
Merci pour ton aide précieuse

 

[sylvanu]

Pour éviter le sapin de noël ( ainsi que tous les problèmes s'y afférant )

En PJ les deux approches, arbre de Noël ou non.
L'arbre de Noël vous réservent des surprises de lisibilité.
Mais ne comptez pas sur moi pour les résoudre.

 

[sylvanu]

Un essai avec 30 couleurs arbitraires, la police est blanche ou noire suivant la couleur de fond.