VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Feuil4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
'code Feuille Saisie
  Dim dest As Range
  Dim pl(), items()
  
  If Not Intersect(Target, Range("Riviere")) Is Nothing And Target.Count = 1 Then
    Range("Secteur") = ""
    Set dest = Range("Secteur")
    pl = Sheets("Listes").Range("tb_listes[" & Target.Value & "]").Value2
    items = ItemsValidation(pl)
    With dest.Validation
      .Delete
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
      xlBetween, Formula1:=Join(items, ",")
    End With
  End If
  
  If Not Intersect(Target, Range("Leurre_type")) Is Nothing And Target.Count = 1 Then
    Range("Leurre_categorie") = ""
    Set dest = Range("Leurre_categorie")
    pl = Sheets("Leurres").Range("tb_leurres[" & Target.Value & "]").Value2
    items = ItemsValidation(pl)
    With dest.Validation
      .Delete
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
      xlBetween, Formula1:=Join(items, ",")
    End With
  End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim espece$
  Dim dest As Range
  Dim pl(), items()
  
  If Not Intersect(Target, Range("tb_Peche[#Headers]")) Is Nothing And Target.Count = 1 Then
    espece = Target.Value2
    Call FiltrerEspeces(espece)
  End If
  
  If Not Intersect(Target, Range("Riviere")) Is Nothing And Target.Count = 1 Then
    Set dest = Range("Riviere")
    pl = Sheets("Listes").Range("tb_listes[Riviere]").Value2
    items = ItemsValidation(pl)
    With dest.Validation
      .Delete
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
      xlBetween, Formula1:=Join(items, ",")
    End With
  End If
  
  If Not Intersect(Target, Range("Leurre_type")) Is Nothing And Target.Count = 1 Then
    Set dest = Range("Leurre_type")
    pl = Sheets("Leurres").Range("tb_leurres[Leurre_type]").Value2
    items = ItemsValidation(pl)
    With dest.Validation
      .Delete
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
      xlBetween, Formula1:=Join(items, ",")
    End With
  End If

  If Not Intersect(Target, Range("Leurre_couleur")) Is Nothing And Target.Count = 1 Then
    Set dest = Range("Leurre_couleur")
    pl = Sheets("Leurres").Range("tb_leurres[Leurre_couleur]").Value2
    items = ItemsValidation(pl)
    With dest.Validation
      .Delete
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
      xlBetween, Formula1:=Join(items, ",")
    End With
  End If
  
End Sub


