Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A2:A2], Target) Is Nothing And Target.Count = 1 Then
Sheets("table").[L2] = Empty
Sheets("table").[A1:d1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("table").[L1:L2], CopyToRange:=Sheets("table").[F1], Unique:=True
End If
If Not Intersect([B2:B2], Target) Is Nothing And Target.Count = 1 Then
Sheets("table").[L2] = Target.Offset(0, -1)
Sheets("table").[M2] = Empty
Sheets("table").[A1:d81].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("table").[L1:M2], CopyToRange:=Sheets("table").[G1], Unique:=True
End If
If Not Intersect([C2:C2], Target) Is Nothing And Target.Count = 1 Then
Sheets("table").[L2] = Target.Offset(0, -2)
Sheets("table").[M2] = Target.Offset(0, -1)
Sheets("table").[N2] = Empty
Sheets("table").[A1:d81].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("table").[L1:N2], CopyToRange:=Sheets("table").[H1], Unique:=True
End If
If Not Intersect([d2:d2], Target) Is Nothing And Target.Count = 1 Then
Sheets("table").[L2] = Target.Offset(0, -3)
Sheets("table").[M2] = Target.Offset(0, -2)
Sheets("table").[N2] = Target.Offset(0, -1)
Sheets("table").[O2] = Empty
Sheets("table").[A1:d81].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("table").[L1:O2], CopyToRange:=Sheets("table").[I1], Unique:=True
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) ' positionnement sur premier élément
Application.EnableEvents = False
If Not Intersect([A2:A2], Target) Is Nothing And Target.Count = 1 Then
Sheets("table").[L2] = Target
Sheets("table").[M2] = Empty
Sheets("table").[A1:d1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("table").[L1:M2], CopyToRange:=Sheets("Table").[G1], Unique:=True
Target.Offset(0, 1) = Sheets("table").Range("region")(1)
End If
If Not Intersect([B2:B2], Target) Is Nothing And Target.Count = 1 Then
Sheets("Table").[L2] = Target.Offset(0, -1)
Sheets("Table").[M2] = Target
Sheets("Table").[N2] = Empty
Sheets("Table").[A1:d1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Table").[L1:N2], CopyToRange:=Sheets("table").[H1], Unique:=True
Target.Offset(0, 1) = Sheets("Table").Range("secteur")(1)
End If
If Not Intersect([C2:C2], Target) Is Nothing And Target.Count = 1 Then
Sheets("Table").[L2] = Target.Offset(0, -2)
Sheets("Table").[M2] = Target.Offset(0, -1)
Sheets("Table").[N2] = Target
Sheets("Table").[O2] = Empty
Sheets("Table").[A1:d1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Table").[L1:O2], CopyToRange:=Sheets("table").[I1], Unique:=True
Target.Offset(0, 1) = Sheets("Table").Range("centre")(1)
End If
Application.EnableEvents = True
End Sub