Option Explicit
Option Compare Text 'la casse est ignor_e
Private Sub Worksheet_Change(ByVal Target As Range)
' Si le changement à lieu en cellule "A2"
If Not Application.Intersect(Target, Range("I1")) Is Nothing Then
ThisWorkbook.Sheets("Données Planning").AutoFilterMode = False
If Target.Value <> "" Then
' Filtre en Feuil1, sur la colonne 4, avec comme critère la valeur entrée
ThisWorkbook.Sheets("données planning").Range("A1").AutoFilter Field:=3, Criteria1:=Target.Value
End If
End If
' Si le changement à lieu en cellule "A2"
If Not Application.Intersect(Target, Range("K1")) Is Nothing Then
ThisWorkbook.Sheets("Données Planning").AutoFilterMode = False
If Target.Value <> "" Then
' Filtre en Feuil1, sur la colonne 4, avec comme critère la valeur entrée
ThisWorkbook.Sheets("Données Planning").Range("A1").AutoFilter Field:=4, Criteria1:=Target.Value
End If
End If
If Not Application.Intersect(Target, Range("M1")) Is Nothing Then
ThisWorkbook.Sheets("Données Planning").AutoFilterMode = False
If Target.Value <> "" Then
' Filtre en Feuil1, sur la colonne 4, avec comme critère la valeur entrée
ThisWorkbook.Sheets("Données Planning").Range("A2").AutoFilter Field:=5, Criteria1:=Target.Value
End If
End If
End Sub