Listbox à condition

Bonsoir à tous

Je souhaiterais remplir une listbox avec les éléments des colonnes D, E et F sous condition que la colonnes P soit remplie.

Comment puis-je faire car je bataille depuis ce début de soirée....

Merci à tous et bonnes fêtes avec un peu d'avance.

Bonsoir,

cf exemples en PJ

Ceuzin

Je te remercie pour le fichier exemple mais je dois bien avouer que je suis perdu....

Dans ton fichier tu élimines les lignes vides, hors moi je ne veux afficher que les lignes des colonnes D, E, F (Elles sont toutes remplies) en fonction de la colonne P (Si elle est vide ou pas)...

Le principe est de lister toutes les lignes dans les la colonne P n'est pas remplies.

cf PJ

Private Sub UserForm_Initialize()
  Set f = Sheets("bd")
  Set d = CreateObject("Scripting.Dictionary")
  a = f.Range("A2:P" & f.[D65000].End(xlUp).Row).Value
  For i = LBound(a) To UBound(a)
     If a(i, 16) <> "" Then d(i) = Array(a(i, 4), a(i, 5), a(i, 6))
  Next i
  n = d.Count
  If n > 0 Then   ' gestion 1 seule ligne dans la BD
    Dim Tbl: Tbl = Application.Transpose(d.items)
    ReDim Preserve Tbl(1 To 3, 1 To n + 1)
    Me.ListBox1.List = Application.Transpose(Tbl)
    Me.ListBox1.RemoveItem n
  End If
End Sub

Ceuzin