Récupérer Liste nommé dans ListBox Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
J
JeremyW
Membre fidèle
Membre fidèle
Messages : 436
Appréciation reçue : 1
Inscrit le : 16 juillet 2013
Version d'Excel : 2003 & 2007

Message par JeremyW » 13 janvier 2016, 16:32

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.
ListBox JeremyW.xls
(29.5 Kio) Téléchargé 7 fois
Merci pour votre aide et une bonne soirée.

Jeremy
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'726
Appréciations reçues : 3
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 13 janvier 2016, 17:07

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
Image
J
JeremyW
Membre fidèle
Membre fidèle
Messages : 436
Appréciation reçue : 1
Inscrit le : 16 juillet 2013
Version d'Excel : 2003 & 2007

Message par JeremyW » 14 janvier 2016, 09:04

Bonjour Banzaï,

Merci pour ton aide.
Ca fonctionne, bien evidemment.

Bonne journée,

Jeremy
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message