ListBox/ Plus que 10 colonnes

Bonjour ,

Je voulais afficher les colonnes d'une feuille excel, mais j'arrive pas à afficher plus que 10 colonnes.

Le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

Private Sub TextBox1_Change() Dim i As Long Me.TextBox1 = Format(StrConv(Me.TextBox1, vbLowerCase)) Me.ListBox1.Clear Me.ListBox1.AddItem "COL1" Me.ListBox1.List(0, 1) = "COL2" Me.ListBox1.List(0, 2) = "COL3" Me.ListBox1.List(0, 3) = "COL4" Me.ListBox1.List(0, 4) = "COL5" Me.ListBox1.List(0, 5) = "COL6" Me.ListBox1.List(0, 6) = "COL6" Me.ListBox1.List(0, 7) = "COL7" Me.ListBox1.List(0, 8) = "COL8" Me.ListBox1.List(0, 9) = "COL9" Me.ListBox1.List(0, 10) = "COL10" Me.ListBox1.List(0, 11) = "COL11"   ListBox1.ColumnCount = 12   Me.ListBox1.Selected(0) = True   With Sheets("Opérations")   For i = 2 To .Range("B20000").End(xlUp).Row For x = 1 To Len(.Cells(i, 1))   a = Me.TextBox1.TextLength   If LCase(Mid(.Cells(i, 1), x, a)) = Me.TextBox1 And TextBox1 <> "" Then Me.ListBox1.AddItem .Cells(i, 1) Me.ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(i, 2) Me.ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(i, 3) Me.ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(i, 4) Me.ListBox1.List(ListBox1.ListCount - 1, 4) = .Cells(i, 5) Me.ListBox1.List(ListBox1.ListCount - 1, 5) = .Cells(i, 6) Me.ListBox1.List(ListBox1.ListCount - 1, 6) = .Cells(i, 7) Me.ListBox1.List(ListBox1.ListCount - 1, 7) = .Cells(i, 8) Me.ListBox1.List(ListBox1.ListCount - 1, 8) = .Cells(i, 9) Me.ListBox1.List(ListBox1.ListCount - 1, 9) = .Cells(i, 10) Me.ListBox1.List(ListBox1.ListCount - 1, 10) = .Cells(i, 11) Me.ListBox1.List(ListBox1.ListCount - 1, 11) = .Cells(i, 12)   End If Next x   Next i End With End Sub

---

EN piece jointe le fichier

Merci d'avance

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim t(11) Me.ListBox1.Column = t ListBox1.ColumnCount = 12 ListBox1.BoundColumn = 12 Me.ListBox1.Clear Me.ListBox1.AddItem "COL1" Me.ListBox1.List(0, 1) = "COL2" Me.ListBox1.List(0, 2) = "COL3" Me.ListBox1.List(0, 3) = "COL4" Me.ListBox1.List(0, 4) = "COL5" Me.ListBox1.List(0, 5) = "COL6" Me.ListBox1.List(0, 6) = "COL6" Me.ListBox1.List(0, 7) = "COL7" Me.ListBox1.List(0, 8) = "COL8" Me.ListBox1.List(0, 9) = "COL9" Me.ListBox1.List(0, 10) = "COL10" Me.ListBox1.List(0, 11) = "COL11"

---

Salut.

Si tu connais le nombre de colonnes à la création du userform (ce qui est le cas puisque tu le mets en dur dans le code), tu pourrais définir le ColumnCount à la conception ;)

Pour remplir une listbox avec une copie d'une plage, tu peux utiliser Listbox1.List = Range("...").Value. En général, on s'appuie sur un tableau structuré. Si ton tableau s'appelle Tableau1, tu pourras utiliser ListBox1.List = Range("tableau1").Value qui remplace tout ton code de chargement

Utiliser un tableau structuré évite de devoir borner ta plage, supprime l'utilisation des boucles, permet de ne pas prévoir trop large, rend le End(xlUp) inutile et détache le code de la place des données... Que du bonheur, en fait.

Résolue , mercii!