Je chercher à remplir un Combobox à partir d'une feuille nommé feuil1. Je veux remplir ce listBox des noms en colonne A qui ont la même valeur que feuil2 cellule B3 en colonne D de feuil1.
Bref ici j'aurais dans l'exemple en pièce jointe Jean ainsi que Bily dans le combobox.
J'utilise normalement RowSource pour y arriver mais je suis bloqué à cette étape.
Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Range("D2:D" & Range("D65536").End(xlUp).Row)
If c = Feuil2.Range("B3") Then
UserForm1.ComboBox1.AddItem c.Offset(0, -3)
End If
Next c
UserForm1.Show
End Sub
Private Sub UserForm_Initialize()
Dim C As Range
For Each C In Range("d2", Cells(Rows.Count, 4).End(3))
If C = Feuil2.Range("B3") Then ComboBox1.AddItem C.Offset(, -3)
Next C
End Sub