Bonjour,

Après avoir tapé une recherche dans ma textbox, j'ai codé pour récupérer dans ma listbox les lignes correspondantes comprenant 3 colonnes de mon tableau (B,C,D).

Dans "propriété" j'ai spécifié 3 colonnes avec les dimensions respectives.

Mais le résultat ne change pas, j'obtiens dans ma listbox pour chaque ligne de mon tableau sélectionné, les données des colonnes (B,C,D) les unes à la suite des autres. C'est à dire :
B1
C1
D1
B2
C2
D2
...

Alors que je souhaite obtenir dans ma listbox les résultat de la facon suivante:
B1 C1 D1
B2 C2 D2

J'ai épluché tous les articles concernant le sujet mais je n'ai pas réussi à adapter quelque chose qui marche...

Voici mon code, merci pour votre aide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub TextBox_Change()
 
    Application.ScreenUpdating = False
 
 
    der_ligne = Cells(Rows.Count, 2).End(xlUp).Row
 
    ListBox.Clear
 
    If TextBox <> "" Then
        For i = 2 To der_ligne
            If Cells(i, 2) Like "*" & TextBox & "*" Then
 
                Me.ListBox1.AddItem Cells(i, 2)
                Me.ListBox1.AddItem Cells(i, 3)
                Me.ListBox1.AddItem Cells(i, 4)
            End If
        Next
    End If
  TextBox.Text = UCase(TextBox.Text)
End Sub