bonjour,
avec ce code suivant, je peux filtrer mon tableau à partir d'une cellule mais je voudrais pouvoir filtrer à partir de plusieurs cellules car plusieurs critères et j'aimerais qui si 1 critère manque, le filtrage continu. cela se trouve dans l'onglet recherche et choix.
avec ce code suivant, je peux filtrer mon tableau à partir d'une cellule mais je voudrais pouvoir filtrer à partir de plusieurs cellules car plusieurs critères et j'aimerais qui si 1 critère manque, le filtrage continu. cela se trouve dans l'onglet recherche et choix.
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
' Si le changement à lieu en cellule "A2"
If Not Application.Intersect(Target, Range("A2")) Is Nothing Then
ThisWorkbook.Sheets("Feuil1").AutoFilterMode = False
If Target.Value <> "" Then
' Filtre en Feuil1, sur la colonne 4, avec comme critère la valeur entrée
ThisWorkbook.Sheets("Feuil1").Range("A1").AutoFilter Field:=4, Criteria1:=Target.Value
End If
End If
End Sub
Dernière édition: