Filtrer par couleur de cellule

Bonjour a tous, je cherche a afficher la liste de toute les lignes dont la couleur de la cellule de la colonne 1 de la ligne active sont de meme couleur. Excel 2003

Merci!

Bonjour,

comment est établie cette couleur ? par une MFC ?

si c'est le cas, il faut repartir des critères qui ont conduit à cette couleur pour filtrer

sinon, il faut faire une fonction personnalisée et filtrer sur son résultat

La couleur est déterminer par la valeur de CurrentColor = clr(clrec) puis lorsqu'on clic : Target.Interior.Color = CurrentColor

Public Sub BOUTON_couleur() 'bouton Couleur
    Dim couleur1, couleur2, couleur3, couleur4, couleur5, couleur6, couleur7, couleur8, couleur9, couleur10, couleur11, couleur12, couleur13, couleur14
    Dim clr
    couleur1 = RGB(255, 0, 0)
    couleur2 = RGB(0, 0, 255)
    couleur3 = RGB(0, 180, 64)
    couleur4 = RGB(255, 255, 0)
    couleur5 = RGB(192, 32, 224)
    couleur6 = RGB(0, 255, 255)
    couleur7 = RGB(255, 128, 64)
    couleur8 = RGB(128, 128, 160)
    couleur9 = RGB(0, 0, 0)
    couleur10 = RGB(255, 255, 255)
    couleur11 = RGB(0, 255, 64)
    couleur12 = RGB(0, 160, 255)
    couleur13 = RGB(255, 192, 96)
    couleur14 = RGB(192, 128, 32)

    Static clrec As Integer
    clr = Array(couleur1, couleur2, couleur3, couleur4, couleur5, couleur6, couleur7, couleur8, couleur9, couleur10, couleur11, couleur12, couleur13, couleur14)
    clrec = (clrec + 1) Mod 14
    ActiveSheet.Shapes("Rectangle 37").Select
    Selection.ShapeRange.Fill.ForeColor.RGB = clr(clrec)
    CurrentColor = clr(clrec)

    Set Oldcel = ActiveCell  'on sauvegarde la position de la cellule
    Range("A600").Select     'pour que un clic sur une cellule soit tjrs vu comme une nouvelle sélection
    Oldcel.Select            'On reprend la position de depart sauvegarde

End Sub

If Not Application.Intersect(Target, Range("B3:G600")) Is Nothing Then    'clic dans une cellule de colonne B,C,D,E,F,G
           Target.Interior.Color = CurrentColor 'essayer d'éviter d'utiliser sélection, ralenti le processus! voir Forum.

Bonjour,

j'ai une peu de mal à te suivre car la couleur est donnée à un shape ...

je pense qu'un bout de fichier serait nécessaire

J'avoue que le shape n'est probablement pas nécessaire puisque ce que je voulais c'est de mettre une cellule de la couleur courante lorsque je clic dessus.

Excel 2003 ne permet pas des filtres élaborés avec des criteres de couleur alors je vais mettre le code des couleurs des cellules dans des cellules cachés et je filtrerai a partir de ce critere. Esperons que ca va marcher.