Récupérer Liste nommé dans ListBox

Bonjour le forum,

Je vous joins un classeur, dans lequel, via un usf je test la colonne C.

Si celle-ci ne contient rien, je récupère la valeur en B, je boucle et j'en fait une liste.

J'insère la liste dans un msgbox et hop fin.

Ca fonctionne parfaitement.

Mon fichier original est bien evidement bcp plus imposant et le msgbox est devenu trop petit, celui-ci ne m'affiche plus la liste complète.

J'aimerai donc récupérer la liste dans un ListBox, et.... c'est là que j'ai besoin de vous puisque je n'y parviens pas.

J'ai essayé ListBox1.List = non_planifier, mais ça ne fonctionne pas.

Je suis ouvert à toute autre proposition bien sûr.

16listbox-jeremyw.zip (11.12 Ko)

Merci pour votre aide et une bonne soirée.

Jeremy

Bonjour

A tester

Private Sub CommandButton1_Click()
Dim i As Integer
Dim trouve As Range

  With Sheets(1)
    For i = 2 To .Range("A25").End(xlUp).Row
      Set trouve = .Columns("A:A").Cells.Find(.Range("B" & i), lookat:=xlWhole)
      If IsEmpty(.Range("C" & i)) = True Then Me.ListBox1.AddItem .Range("B" & i)
    Next
  End With
  If Me.ListBox1.ListCount = 0 Then
    MsgBox "Tous sites planifiés"
  End If
End Sub

Bonjour Banzaï,

Merci pour ton aide.

Ca fonctionne, bien evidemment.

Bonne journée,

Jeremy

Rechercher des sujets similaires à "recuperer liste nomme listbox"