Colorier valeur si macro active

Bonjour à tous,

Je souhaiterais colorier une valeur de couleur verte (cellule D2) lorsque la macro "Filtrer_DP" (bouton "FILTRER DP") est active.

Une première macro a été réalisée :

Sub Filtrer_DP()
    Sheets("DP DS Cde").Select
    Selection.AutoFilter Field:=1, Criteria1:=Range("D2")
    DerLig = Sheets("DP DS Cde").Range("A65536").End(xlUp).Row
    Rows("1:" & DerLig).Copy
    Range("A5").Select
    Application.CutCopyMode = False
    Worksheets("DP DS Cde").Protect UserInterfaceOnly:=True
End Sub

mais celle-ci ne permet pas de mettre la valeur de la cellule D2 de couleur verte dans le cas ou la macro est active

Auriez-vous une idée ?

Merci

Fabien

Bonjour,

A quoi te sert ta macro Filter_DP !?

Parcque pour nous ton code

Rows("1:" & DerLig).Copy
Range("A5").Select
Application.CutCopyMode = False
Worksheets("DP DS Cde").Protect UserInterfaceOnly:=True

Ne sert strictement à rien

Bonjour BrunoM45,

La macro FIltrer_DP sert à filtrer (cacher les lignes) ne correspondants pas à la valeur contenue dans la cellule "D2".

Lorsque l'on clic sur le bouton FILTRER DP, la macro vient comparer les valeurs contenues dans la colonne A (A5:A30000) par rapport à la valeur indiquée dans la cellule "D2" et ainsi cacher celle-qui ne correspondent pas.

La feuille contenant 30000 lignes, je souhaites conserver une bonne rapidité de la macro.

J'ai repris cette macro sur un forum, il y a peut-être des choses inutiles.

Quelle macro me conseilles tu pour répondre à ce besoin et en plus colorier la valeur "D2" si la macro est active ?

Merci

Fabien

Worksheets("DP DS Cde").Protect UserInterfaceOnly:=True est utile pour pouvoir utiliser les boutons des macros dans le cas ou la feuille est sécurisée.