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 : Sélectionner tout - Visualiser dans une fenêtre à part
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...