Pour créer une deuxieme combobox

Bonjour a tous,

Merci pour toute votre aide lorsque je lit les échanges sur le forum.

Mon tour d'être bloqué sans trouver la réponse à mes questions.

J'expose mon problème, puis je met les codes VBA à la fin de mon message.

Pour un tableau de bord professionnel, j'ai crée une combobox1 qui sert à choisir parmi une liste de prestataires. La combobox1 est fonctionnelle et je ne rencontre aucun soucis pour la faire fonctionner.

Maintenant qu'il faut que je crée une autre Combobox2, qui servira à recenser le lot technique spécifique du prestataire, je n'arrive pas à combiner les deux correctement, étant novice en VBA.

Les informations des deux listes sont tous les deux dans la même feuille "SUIVI F+P"

Les raisons sociales des prestataires sur "SUIVI F+P" en cellule E

Les Lots techniques sur "SUIVI F+P" en cellule AM

Voici le code qui fonctionne pour les noms des entreprises combobox1 :

Option Compare Text
Dim ws As Worksheet, list_Noms

Private Sub ComboBox1_Change()
If Me.ComboBox1 <> "" And IsError(Application.Match(Me.ComboBox1, list_Noms, 0)) Then
Me.ComboBox1.List = Filter(list_Noms, Me.ComboBox1.Text, True, vbTextCompare)
Me.ComboBox1.DropDown

End If
ActiveCell.Value = Me.ComboBox1.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 Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("H20:H100")) Is Nothing And Target.Count = 1 Then
Set ws = Sheets("Données")
list_Noms = Application.Transpose(ws.Range("E2:E" & ws.Range("E1048576").End(xlUp).Row).Value)
Me.ComboBox1.List = list_Noms
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

End Sub

Bonjour et bienvenue,

J'expose mon problème, puis je met les codes VBA à la fin de mon message

Merci de bien vouloir utiliser les balises de code disponibles en cliquant sur l'icone </> dans le menu et en collant vos codes dans la fenêtre
Je corrige votre post vu que c'est le premier

Pour votre demande

Sans données confidentielles

Crdlt