Aide Userform

[piegre]

Bonjour à tous,

Je me lance dans du VBA, j'ai un tableau, avec une colonne B qui se met dans une combobox, une autre colonne C dans une combobox où il faut supprimer les doublons et une autre colonne dans une listbox qui affichera le résultat des deux combobox.

Je vous ai joint le fichier au cas où.

La colonne "type véhicule" est dans comboBox1
La colonne "Option Clim" est dans la comboBox2 mais je n'y arrive pas car je souhaite supprimer tout les doublons.

Et la listbox,je souhaite afficher le résultat des deux combobox de la colonne "pseudo"

Sub lancement_pseudo()
Dim i As Integer

With Sheets("Feuil1").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("feuil1").Range("C65536").End(xlUp).Row
  ComboBox1 = Sheets("feuil1").Range("C" & i)
  If ComboBox2 = -1 Then ComboBox2.AddItem Sheets("feuil1").Range("C" & i)
Next i

UserForm1.Show

End Sub

 

[piegre]

Re : Aide Userform

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 à remplir la listbox en fonction des choix des combobox

 

[jpb388]

Re : Aide Userform

Bonjour a tous
essaye ceci

 

[piegre]

Re : Aide Userform

Merci c'est vraiment top 🙂