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 :

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

Hello,

Plutôt comme ceci au début, additem = max 10 colonnes:

Private Sub TextBox1_Change()
Dim i As Long

ListBox1.ColumnCount = 12
Plage = Sheets("Opérations").Range("A1:M12")
ListBox1.List() = Plage

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"

Bonsoir,

ci-jointe une proposition en nommant "Opérations" la plage A1: M1 de la feuille Opérations

Bonjour le fil

@ThomassBYRN un petit rappel de la charte du forum s'impose

Merci de lire la charte du forum [A LIRE AVANT DE POSTER] et notamment :

• Ne postez pas la même question sur un autre forum pour éviter de faire perdre bêtement du temps aux membres sur un problème qui peut être déjà résolu sur l'autre forum. L'inverse est également valable, si vous avez déjà posé votre question sur un autre forum, ne créez pas un doublon sur ce forum (à moins d'avoir clôturé le sujet sur l'autre forum).

Merci de votre compréhension

Merci Pour vos réponses,

La proposition de @dysorthographie est efficace!

La proposition de thev résolue le problème mais quand je supprime le contenu de la TextBox pour afficher de nouveau... l'erreur ci-dessous s'affiche :

D'accord BrunoM45 j'ai écrit dans les deux forums juste pour bien discuter le sujet.

sinon j'ai bien compris et tu as raison .

Merci

Bonjour à tous,

Pour contrer l'erreur d'exécution 9 ...

'...
'...
   With Me.ListBox2
      .Clear
      If j = 0 Then Exit Sub  ' << ajout d'une condition pour contrer l'erreur d'exécution 9
      If UBound(liste) > -1 Then .Column = Application.Transpose(liste)
   End With
'...
'...

ric