Cohabitation de 2 combobox

Bonjour,

Pour le contexte, Je travaille dans l'environnement et travaille sur un projet perso qui permet de rédiger ses relevés naturalistes et visualiser les particularités des espèces renseignées.

Je n'ai pas de problème pour construire la base de données et les relations entre espèces et particularité (RECHERCHEV).

En revanche, j'aimerai faciliter la saisie en proposant une saisie semi-automatique via une combobox.

je n'ai absolument aucune connaissance en VBA et n'y comprend d'ailleurs pas grand choses, pour ce faire j'ai donc farfouillé sur les forums et regarder des vidéos sur YT.

J'ai réussi à configurer une combobox qui reprend la liste des départements, je trouve ça tout à fait approprié et j'essaye d'en insérer une 2eme qui me propose les noms des espèces et c'est là que je pèche.

J'ai cru comprendre que le code que j'ai rentré est adapté pour 1 combobox mais pas pour 2.

voilà ce que j'ai fait:

Option Compare Text
Dim ws As Worksheet, list_Départements
Private Sub ComboBox1_Change()
If Me.ComboBox1 <> "" And IsError(Application.Match(Me.ComboBox1, list_Départements, 0)) Then
Me.ComboBox1.List = Filter(list_Départements, Me.ComboBox1.Text, True, vbTextCompare)
Me.ComboBox1.DropDown
End If
ActiveCell.Value = Me.ComboBox1.Value

Dim ws As Worksheet, list_sp
Private Sub ComboBox2_Change()
If Me.ComboBox2 <> "" And IsError(Application.Match(Me.ComboBox2, list_sp, 0)) Then
Me.ComboBox2.List = Filter(list_sp, Me.ComboBox2.Text, True, vbTextCompare)
Me.ComboBox2.DropDown
End If
ActiveCell.Value = Me.ComboBox2.Value

End Sub

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then ActiveCell.Offset(1).Select

End Sub


Private Sub ComboBox2__KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then ActiveCell.Offset(1).Select


End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("B1")) Is Nothing And Target.Count = 1 Then
Set ws = Sheets("LISTES")
list_Départements = Application.Transpose(ws.Range("A1:A" & ws.Range("A102").End(xlUp).Row).Value)
Me.ComboBox1.List = list_Départements
Me.ComboBox1.Top = Target.Top
Me.ComboBox1.Left = Target.Left
Me.ComboBox1.Width = Target.Width
Me.ComboBox1.Height = Target.Height
Me.ComboBox1.Value = Target.Value
Me.ComboBox1.Visible = True
Me.ComboBox1.Activate

Else
Me.ComboBox1.Visible = False
End If

If Not Intersect(Target, Range("A5:A1005")) Is Nothing And Target.Count = 1 Then
Set ws = Sheets("LISTES")
list_sp = Application.Transpose(ws.Range("D2:D" & ws.Range("D179637").End(xlUp).Row).Value)
Me.ComboBox2.List = list_sp
Me.ComboBox2.Top = Target.Top
Me.ComboBox2.Left = Target.Left
Me.ComboBox2.Width = Target.Width
Me.ComboBox2.Height = Target.Height
Me.ComboBox2.Value = Target.Value
Me.ComboBox2.Visible = True
Me.ComboBox2.Activate

Else
Me.ComboBox2.Visible = False
End If

End Sub

En gros :
- ComboBox1 = list_Départements = la liste des départements
- ComboBox2 = list_sp = la liste des espèces

c'est 2 listes se trouvent dans la feuille "LISTES"

Je suis désolé pour les cheveux que vous allez peut-être vous arracher en voyant ça ...

J'ai prit le temps de faire des recherches sur ce sujet, si je me permet de poster c'est que je n'ai pas trouvé/compris la solution.

Merci à vous pour votre pédagogie.

Merci à vous pour votre temps

Merci à vous pour votre aide.