chris6999
XLDnaute Impliqué
Bonjour
Je tente de faire un filtre sur une valeur saisie dans une plage fusionnée.
Mon code fonctionne si la valeur n'est pas nulle mais lorsque je supprime cette valeur la suppression du filtre ne réagit pas.
Cela vient du fait que la zone de référence est sur une plage fusionnée car quand j'enlève la fusion le code réagit.
Auriez-vous une solution de contournement ?
Merci par avance pour votre aide
Bonne journée à tous
Private Sub Worksheet_Change(ByVal Target As Range)
'filtre produit fini accessoire
If Target.Address(0, 0) = "K4" Then
If Target.Value = "" Then
Range("$B$11:$P$11").AutoFilter Field:=15
End If
If Target.Value <> "" Then
Range("$B$11:$P$11").AutoFilter Field:=15, Criteria1:="=*" & Target.Value & "*"
End If
End If
End Sub
Je tente de faire un filtre sur une valeur saisie dans une plage fusionnée.
Mon code fonctionne si la valeur n'est pas nulle mais lorsque je supprime cette valeur la suppression du filtre ne réagit pas.
Cela vient du fait que la zone de référence est sur une plage fusionnée car quand j'enlève la fusion le code réagit.
Auriez-vous une solution de contournement ?
Merci par avance pour votre aide
Bonne journée à tous
Private Sub Worksheet_Change(ByVal Target As Range)
'filtre produit fini accessoire
If Target.Address(0, 0) = "K4" Then
If Target.Value = "" Then
Range("$B$11:$P$11").AutoFilter Field:=15
End If
If Target.Value <> "" Then
Range("$B$11:$P$11").AutoFilter Field:=15, Criteria1:="=*" & Target.Value & "*"
End If
End If
End Sub