Formulaire userform

Bonjour à tous,

Je suis un peu rouillé dans les userform, je ne me rappelle plus comment faire.

J'ai une combobox, un choix binaire ( avec ou sans clim ) , et je souhaite que le résultat des deux choix se mettre dans une listbox.Sachant que toute les données sont dans un tableau.

Je n'arrive pas à faire le lien entre la combobox et le choix pour remplir la list box

Bon j'ai un peu avançé :

Sub lancement_pseudo()
Dim i As Integer
Dim Cell As Range

With Sheets("base").Range("B3") 'Inserer colonne A dans combobox1
UserForm1.ComboBox1.RowSource = Range(.Cells, .End(xlDown)(1, 1)).Address(External:=True)
End With

For i = 1 To Sheets("base").Range("C65536").End(xlUp).Row
  ComboBox2 = Sheets("base").Range("C" & i)
  If ComboBox2 = -1 Then ComboBox2.AddItem Sheets("base").Range("C" & i)
Next i

    For Each Cell In Worksheets("base").Range("c3:c24")
           UserForm1.ComboBox2 = Cell
        If UserForm1.ComboBox2.ListIndex = -1 Then _
           UserForm1.ComboBox2.AddItem Cell
    Next Cell

UserForm1.Show
End Sub

Il me manque plus qu'à faire un If en fonction des choix des comboBiox pour remplir la listbox mais je boque

Rechercher des sujets similaires à "formulaire userform"