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

Louisssss · 1 Mai 2024

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 · 1 Mai 2024

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

Phil69970 · 1 Mai 2024

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 · 2 Mai 2024

Phil69970 à dit:
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 · 2 Mai 2024

Re

@Louisssss

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

VB:

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 · 2 Mai 2024

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 · 3 Mai 2024

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 · 3 Mai 2024

sylvanu à dit:
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 · 4 Mai 2024

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

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

Louisssss

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Louisssss

XLDnaute Nouveau

Pièces jointes

Phil69970

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

Louisssss

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires