1 2 3 4 5 6 7 8 9 10 11 12 13
| ...
With Me.ListBox1
.List(.ListCount - 1, 1) = Sheets("Feuil1").Cells(nl, 2)
.List(.ListCount - 1, 2) = Sheets("Feuil1").Cells(nl, 3)
.List(.ListCount - 1, 3) = Sheets("Feuil1").Cells(nl, 4)
.List(.ListCount - 1, 4) = Sheets("Feuil1").Cells(nl, 5) & " " & Sheets("Feuil1").Cells(nl, 6)
.List(.ListCount - 1, 5) = Sheets("Feuil1").Cells(nl, 7) & " " & Sheets("Feuil1").Cells(nl, 8)
.List(.ListCount - 1, 6) = Sheets("Feuil1").Cells(nl, 9) & " " & Sheets("Feuil1").Cells(nl, 10)
.List(.ListCount - 1, 7) = Sheets("Feuil1").Cells(nl, 11) & " " & Sheets("Feuil1").Cells(nl, 12)
.List(.ListCount - 1, 8) = Sheets("Feuil1").Cells(nl, 13)
.List(.ListCount - 1, 9) = nl
End With
... |
Partager