Problème lier deux listbox avec données filtrées

Question

Je travail sur un fichier de base de donnée de voiture. A l'aide de OptionButton je filtre mes données telles que Motorisation, type de voiture ... Sur mon dernier user form (Car detail) je souhaiterais filtrer par Type de voiture (optionbutton) et que mes listes en dessous se mettent à jour (ex: en filtrant sur un certain type de véhicule j'obtiens dans ma BDD Kia en trois fois dans ma colonne Brand et trois modèles ressortent) je voudrais que dans mon userform dans ma première liste KIA apparraise une fois et dans la liste dessous les trois modèles. J'espère avoir été clair Merci de votre aide...

Invité · Answer

Sans fichier, tu veux qu'on fasse comment...

Invité · Answer

Re,

Bon voilà, par rapport à ton filtre existant qui était "Wagon"

Voici le code derrière l'OptionButton6

Private Sub OptionButton6_Click()
  Dim dLig As Long, Lig As Long
  ' Définir un Dictionnaire pour une liste sans doublon
  Set MonDico = CreateObject("Scripting.Dictionary")
  ' Wagon
  With Sheets("Database")
    dLig = .Range("D" & Rows.Count).End(xlUp).Row
    For Lig = 2 To dLig
      If .Range("D" & Lig).Value Like "*Wagon*" Then
        On Error Resume Next
        MonDico.Add .Range("B" & Lig).Value, .Range("B" & Lig).Value
        '
        If Err.Number = 0 Then
          Me.ListBox1.AddItem .Range("B" & Lig)
        End If
        Err.Clear
        On Error GoTo 0
      End If
    Next Lig
  End With
  ' Effacer la variable objet
  Set MonDico = Nothing  
End Sub

A toi de faire,

soit une procédure générique qui reprend le contenu de ton OptionButton pour rechercher la valeur
soit autant de procédure que d'optionbutton