Inserer une ligne dans une listbox

Bonjour à tous,

Voila mon soucis, j'ai un tableau sur une feuille excel et je voudrais inserer les lignes (jusqu'a la colonne 36) dans une liste box A condition que la 1er cellule de cette ligne ne soit pas vide.

J'ai fais un petit code, mais il supprime les valeurs antérieures

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton4_Click()   i = 1   While Cells(i, 1).Value <> ""   ActiveWorkbook.Worksheets("feuil1").Select UserForm1.ListBox1.RowSource = Range(Cells(i, 1), Cells(i, 36)).Address   i = i + 1 Wend   End Sub

---

Si quelque a une solution pour eviter la suppression je suis preneur,


Ps : je debute dans le Vba/excel, merci de votre patience...

Salut,
Le problème vient du fait que tu écrase la valeur à chaque boucle, le principe aurait été de faire MaSource = MaSource + NouvelleLigne mais il y a beaucoup plus simple.
En connaissant la dernière ligne remplie et sachant que tu as 36 colonnes tu peux directement donner la référence complète pour la source, voici comment:

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton4_Click()   Dim NbLigne As String 'Pour récupérer le nombre de ligne   NbLigne = Cells((Range("a:a").Rows.Count), 1).End(xlUp).Row 'Le RAnge("A:a").rows.count renvoie le nombre de ligne total Excel, pour 2003 = 65536; le End(xlup) "remonte" jusqu'à la première cellule remplie => la dernière en partant du haut; le .row renvoi le numéro de ligne   UserForm1.ListBox1.RowSource = Sheets("sheet1").Range(Cells(1, 1), Cells(NbLigne, 36)).Address   End Sub

---

Attention, ne pas oublié de mettre le "ColumnCount" de ta list box à 36, mais j'imagine que c'est déjà fait.

A+

Merci beaucoup Fvandermeulen de ta réponse, j'ai adapté ton code à mon environnement (feuil1...) et resultat cela fonctionne bien :)
Le seul soucis et que je ne retrouve pas l'integralité de ma ligne dans la listbox :?

Donc je voudrais savoir si c'est moi qui ne comprend pas :D

Ps : Merci beaucoup pour les commentaire annotés à coté des lignes de code

Avant que tu ne répondes je repost un petit message pour te remercier, et oui j'avais oublié une ligne ... :(


merci beaucoup pour ta réponse

est - il possible "d'adapter" ta méthode de selctionne de ligne pour les colonnes?

je voudrais le tableau le plus interactif possible ....

Cordialement trigger,

Bien sur, il suffit de faire une variable pour le nombre de colonne, voici le code adapté
J'ai aussi changé le Dim car un Long est plus adequoi qu'un string attendu qu'on récupère des nombres:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub CommandButton4_Click()   Dim NbLigne As Long 'Pour récupérer le nombre de ligne Dim NbCol As Long 'Pour récupérer le nombre de colonne   NbLigne = Sheets("Feuil1").Cells((Range("a:a").Rows.Count), 1).End(xlUp).Row NbCol = Sheets("Feuil1").UsedRange.Columns.Count   UserForm1.ListBox1.RowSource = Sheets("Feuil1").Range(Cells(1, 1), Cells(NbLigne, NbCol)).Address UserForm1.ListBox1.ColumnCount = NbCol 'Adapte le nombre de col de la listbox   End Sub

---

Je te remercie beaucoup pour toutes tes explication détaillées, grace à toi j'ai bien compris le systeme pour repérer les cellules pleines/vides.

Mon premier poste débouche sur une totale satisfaction !

En espérant ne pas trop avoir pris de ton temps,
Cordialement;

trigger