chris6999
XLDnaute Impliqué
Bonjour
J'ai dans le fichier joint une macro pour filtrer sur une valeur saisie dans la cellule D5.
Ce filtre fonctionne par contre lorsque je supprime la valeur dans cette cellule, le filtre reste actif au lieu d'afficher toutes les lignes.
Je viens de me rendre compte que c'est à cause de la fusion de D5 et E5...
Comment puis-je contourner ce problème.
Merci d'avance
Cordialement
Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("Suivi priorités")
' Si modification de la cellule D5 : cellule où on saisit la valeur recherchée
If Target.Address(0, 0) = "D5" Then
' Si la cellule contient une valeur
If Target.Value <> "" Then
' Filter sur cette valeur
'A11:j11 ligne où se trouvent les étiquettes du filtre
Range("A11:J11").AutoFilter Field:=2, Criteria1:="=*" & Target.Value & "*"
'Field = 2 : recherché de la valeur dans la colonne 2
Else
' Supprimer le filtre
Range("A11:j11").AutoFilter Field:=2
End If
End If
End With
End Sub
J'ai dans le fichier joint une macro pour filtrer sur une valeur saisie dans la cellule D5.
Ce filtre fonctionne par contre lorsque je supprime la valeur dans cette cellule, le filtre reste actif au lieu d'afficher toutes les lignes.
Je viens de me rendre compte que c'est à cause de la fusion de D5 et E5...
Comment puis-je contourner ce problème.
Merci d'avance
Cordialement
Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("Suivi priorités")
' Si modification de la cellule D5 : cellule où on saisit la valeur recherchée
If Target.Address(0, 0) = "D5" Then
' Si la cellule contient une valeur
If Target.Value <> "" Then
' Filter sur cette valeur
'A11:j11 ligne où se trouvent les étiquettes du filtre
Range("A11:J11").AutoFilter Field:=2, Criteria1:="=*" & Target.Value & "*"
'Field = 2 : recherché de la valeur dans la colonne 2
Else
' Supprimer le filtre
Range("A11:j11").AutoFilter Field:=2
End If
End If
End With
End Sub
Pièces jointes
Dernière édition: