charger dans ma ListBox1, toute la feuille pas seulement une colonne

[demarer]

bonjour

j'utilise le code ci-dessous ce qui me permet de charger dans ma listeBox la ligne B


Private Sub CommandButton1_Click()
Dim i As Integer
UserForm1.ListBox1.Clear
i = 1
Do While ThisWorkbook.Worksheets("feuille1").Range("B" & i) <> ""
UserForm1.ListBox1.AddItem ThisWorkbook.Worksheets("feuille1").Range("B" & i)
i = i + 1
Loop

Load UserForm1

Mon problème : je souhaite charger dans ma ListBox1, toute la feuille 1 pas seulement une colonne pourriez vous m'orienter.

Merci

 

[Odesta]

Re : charger dans ma ListBox1, toute la feuille pas seulement une colonne

Bonjour


Vous pouvez essayer ceci :

Private Sub CommandButton1_Click()

Dim i As Long

UserForm1.ListBox1.Clear
ligne_max = ThisWorkbook.Worksheets("Feuil1").Rows(65000).End(xlUp).Row
col_max = ThisWorkbook.Worksheets("Feuil1").Columns(250).End(xlToLeft).Column
For Each cellule In ThisWorkbook.Worksheets("Feuil1").Range(Cells(1, 1), Cells(ligne_max, col_max))
    If cellule.Value <> "" Then
        UserForm1.ListBox1.AddItem cellule.Value
    End If
Next


End Sub

Cordialement

Olivier

 

[demarer]

Re : charger dans ma ListBox1, toute la feuille pas seulement une colonne

Bonjour


Vous pouvez essayer ceci :

Private Sub CommandButton1_Click()

Dim i As Long

UserForm1.ListBox1.Clear
ligne_max = ThisWorkbook.Worksheets("Feuil1").Rows(65000).End(xlUp).Row
col_max = ThisWorkbook.Worksheets("Feuil1").Columns(250).End(xlToLeft).Column
For Each cellule In ThisWorkbook.Worksheets("Feuil1").Range(Cells(1, 1), Cells(ligne_max, col_max))
    If cellule.Value <> "" Then
        UserForm1.ListBox1.AddItem cellule.Value
    End If
Next


End Sub

Cordialement

Olivier

je ne sais pourquoi mais l'execution se bloque à ce niveau là

For Each cellule In ThisWorkbook.Worksheets("feuil1").Range(Cells(1, 1), Cells(ligne_max, col_max))

en me donant l'erreur suivante : erreur d'execution '1004' , Erreur définie par l'application ou par l'objet
je n'arrive vraiment pas à trouver pk?
merci

 

[Odesta]

Re : charger dans ma ListBox1, toute la feuille pas seulement une colonne

j'ai changé le nom de la feuille, en oubliant de le remettre : feuil1 => feuille1
du coup, je pense que ligne_max et col_max renvoient 0 ?

il suffit de remettre "feuille1" partout à la place de "feuil1"

Cdt

 

[demarer]

Re : charger dans ma ListBox1, toute la feuille pas seulement une colonne

bonjour

feuille1 ou feuil1 ce n est cela le problème car c'est juste un exemple , mes feuilles ont d'autre noms 😉 , je sais faire

 

[Odesta]

Re : charger dans ma ListBox1, toute la feuille pas seulement une colonne

Bon, de toute façon mon code n'est pas terrible, il faudra écrire ceci :

Private Sub CommandButton1_Click()

Dim i As Long

UserForm1.ListBox1.Clear
ligne_max = ThisWorkbook.Worksheets("Feuil1").Rows(65000).End(xlUp).Row
col_max = ThisWorkbook.Worksheets("Feuil1").Columns(250).End(xlToLeft).Column
For Each cellule In ThisWorkbook.Worksheets("Feuil1").Range(ThisWorkbook.Worksheets("Feuil1").Cells(1, 1), ThisWorkbook.Worksheets("Feuil1").Cells(ligne_max, col_max))
    If cellule.Value <> "" Then
        UserForm1.ListBox1.AddItem cellule.Value
    End If
Next


End Sub

voire ceci :

Private Sub CommandButton1_Click()

Dim i As Long

UserForm1.ListBox1.Clear

With ThisWorkbook.Worksheets("Feuil1")
ligne_max = .Rows(65000).End(xlUp).Row
col_max = .Columns(250).End(xlToLeft).Column
For Each cellule In .Range(.Cells(1, 1), .Cells(ligne_max, col_max))
    If cellule.Value <> "" Then
        UserForm1.ListBox1.AddItem cellule.Value
    End If
Next
End With
End Sub

Ensuite, si le problème persiste, il va falloir enquêter...

 

[Fo_rum]

Re : charger dans ma ListBox1, toute la feuille pas seulement une colonne

Salut

et ainsi (liste à 1 colonne)?

Private Sub CommandButton1_Click()
  Dim D_li As Long, D_col As Integer, C_lule As Range
  UserForm1.ListBox1.Clear
  D_li = Cells.SpecialCells(xlCellTypeLastCell).Row
  D_col = Cells.SpecialCells(xlCellTypeLastCell).Column
  For Each C_lule In Range(Cells(1, 1), Cells(D_li, D_col))
    If Not IsEmpty(C_lule) Then UserForm1.ListBox1.AddItem C_lule
  Next
  UserForm1.Show
End Sub

 

[demarer]

Re : charger dans ma ListBox1, toute la feuille pas seulement une colonne

salut

j'ai réussi à trouver le même résultat mais pas de la même manière.

mon code aindi que le tien ne permettent pas d'afficher mes donnees sous forme de matrice (tableau) mais se sont des données dans la m^me colonne.

par exemple :
nom prenom age
laporte laurent 45

s'affiche dans ma listBox dela façon suivante :

nom
prenom
age
laporte
laurent
45


Merci 😀

 

[Paritec]

Re : charger dans ma ListBox1, toute la feuille pas seulement une colonne

Bonjour Demarrer,
ben oui tu joins un fichier et tu auras la réponse souhaité.
Il ne sert à rien de remplir la listbox si tu ne paramètre ps ne serais ce que le nombre de colonnes!!!
alors fichier joint et tu auras des réponses
a+
papou 🙂