Limite de Application.Transpose à 255 cratères | Besoin d'une alternative

Bonjour le forum

Alors voilà j'utilise une ListBox dans laquelle j'effectue une recherche intuitive avec un textbox. Mais le code plante quand plus de 255 caractères se trouvent dans une cellule du tableau. Quelqu'un aurais t-il une alternative à mon problème ?

Je met ci-dessous le code incriminé et un fichier en démo :

Private Sub TextBox1_Change()
     clé = "*" & UCase(Me.TextBox1) & "*"
     Dim Tbl()
     n = 0: ncol = UBound(TabBD, 2)
     For i = LBound(TabBD) To UBound(TabBD)
       If UCase(TabBD(i, colFiltre)) Like clé Then
         n = n + 1: ReDim Preserve Tbl(1 To ncol, 1 To n)
         For k = 1 To ncol: Tbl(k, n) = TabBD(i, k): Next
       End If
      Next i
      If n > 0 Then
        ReDim Preserve Tbl(1 To ncol, 1 To n + 1)
        Me.ListBox1.List = Application.Transpose(Tbl)
        Me.ListBox1.RemoveItem n
      End If
End Sub

Par avance, merci de l’intérêt porté au sujet

Bonjour,

j'ai répondu dans l'autre discussion passée en résolue :

Bonjour,

pour éviter Transpose on peut utiliser .Column au lieu de .List

        Me.ListBox1.List = Application.Transpose(Tbl)
        Me.ListBox1.Column = Tbl 'équivalent de la ligne du dessus

A+

Merci AlgoPlus, ça m'a l'air de fonctionner correctement