Listbox multi colonne

[Niouf]

Bonjour,

Je cherche sur le fihier joint, comment afficher dans ma listbox, les référence de mon tableau en face du descriptif, et tout cela instantanemment lorsque je commence à écrire dans le textbox.

Merci de m'aider car cela fait des heures que je galère.

 

[phlaurent55]

Re : Listbox multi colonne

Bonjour Niouf,

remplace le code par celui-ci

Private Sub TextBox1_Change()
    
    Application.ScreenUpdating = False


    ListBox1.Clear
        
    If TextBox1 <> "" Then
        For ligne = 2 To 1000
             If TextBox1 Like Left(Cells(ligne, 1), Len(TextBox1)) Then
             ListBox1.AddItem Cells(ligne, 1)
             ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(ligne, 2)
                  
            End If
        Next
    End If
   
    
End Sub

à+
Philippe