chris6999
XLDnaute Impliqué
Bonjour
Je suis actuellement sur un projet qui me permettrait de réaliser un filtre à partir d'un mot clé saisi en G2
J'ai utilisé la macro qui m'a été donné par un membre du forum et qui fonctionne très bien
Je souhaiterais savoir s'il serait possible d'enrichir celle-ci afin d'afficher une couleur de fond lorsque le filtre est actif puis enlever la couleur lorsqu'il n'y a aucune sélection en cours.
Auriez-vous une idée?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "G2" Then
If Target.Value <> "" Then
Range("A3:F3").AutoFilter Field:=1, Criteria1:="=*" & Target.Value & "*"
Else
Range("A3:F3").AutoFilter Field:=1
End If
End If
End Sub
Je suis actuellement sur un projet qui me permettrait de réaliser un filtre à partir d'un mot clé saisi en G2
J'ai utilisé la macro qui m'a été donné par un membre du forum et qui fonctionne très bien
Je souhaiterais savoir s'il serait possible d'enrichir celle-ci afin d'afficher une couleur de fond lorsque le filtre est actif puis enlever la couleur lorsqu'il n'y a aucune sélection en cours.
Auriez-vous une idée?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "G2" Then
If Target.Value <> "" Then
Range("A3:F3").AutoFilter Field:=1, Criteria1:="=*" & Target.Value & "*"
Else
Range("A3:F3").AutoFilter Field:=1
End If
End If
End Sub