Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Louisssss

XLDnaute Nouveau
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
 

Pièces jointes

  • APRES.png
    31.9 KB · Affichages: 6
  • AVANT.png
    38.7 KB · Affichages: 6

Phil69970

XLDnaute Barbatruc
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

XLDnaute Nouveau
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
 

Pièces jointes

  • Exemple1.xlsx
    10.6 KB · Affichages: 3

Phil69970

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Supporter XLD
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.
 

Pièces jointes

  • Exemple1.xlsm
    21.3 KB · Affichages: 8

Louisssss

XLDnaute Nouveau
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…