[XL-2010] Remplir listbox à partir d'une combobox en gérant des cellules vides

Bonjour
Avec ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub UserForm_Initialize()
Dim cell As Range
Cboxjour.Clear
For Each cell In Sheets("feuil1").Range("a1:a" & Sheets("feuil1").Range("A" & Rows.Count).End(xlUp).Row)
If cell.Value <> "" Then Cboxjour.AddItem cell
Next cell
End Sub
 
Private Sub Cboxjour_Change()
Dim cell As Range
Dim jour As Range
lboxfruit.Clear
    Set jour = Sheets("feuil1").Columns("A").Find(Cboxjour)
    If Not jour Is Nothing Then
        For Each cell In Sheets("feuil1").Range("b" & jour.Row & ":b" & Sheets("feuil1").Range("b" & Rows.Count).End(xlUp).Row)
            If cell.Offset(0, -1) = Cboxjour Or cell.Offset(0, -1) = "" Then
            lboxfruit.AddItem cell
            Else
            Exit Sub
            End If
        Next cell
    End If
End Sub

coller le tout dans le userform et nommer votre combobox Cboxjour et votre listbox Lboxfruit