Private Sub ComboBox1_Change()
Dim j As Long
ListBox1.Clear
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "80;60"
ComboBox2.ListIndex = -1
For j = 2 To Sheets("Feuil1").Range("A" & Sheets("Feuil1").Cells.Rows.Count).End(xlUp).Row
If ComboBox1.Text = Sheets("Feuil1").Range("B" & j).Value Then
With UserForm1.ListBox1
.AddItem Sheets("Feuil1").Range("A" & j)
.List(.ListCount - 1, 1) = Sheets("Feuil1").Range("B" & j)
End With
End If
Next j
End Sub
Private Sub ListBox1_Click()
If ListBox1.ListIndex <> -1 Then ComboBox2 = ListBox1
End Sub
Private Sub UserForm_Initialize()
ComboBox2.Clear
With UserForm1.ComboBox1
.AddItem "classe A"
.AddItem "classe B"
.AddItem "classe C"
End With
ComboBox2.ColumnCount = 2
ComboBox2.ColumnWidths = "80;60"
For i = 2 To Sheets("Feuil1").Range("A" & Cells.Rows.Count).End(xlUp).Row
With UserForm1.ComboBox2
.AddItem Sheets("Feuil1").Range("A" & i)
.List(.ListCount - 1, 1) = Sheets("Feuil1").Range("B" & i)
End With
Next i
End Sub