recherche automatique

Private Sub ComboBox2_Change()
Dim c As Range, lig As Range
Dim x As Long

With ListBox1
        .Clear
        .IntegralHeight = True
        .Visible = True
        .ColumnCount = 9
        .ColumnWidths = '70;150;50;80;110;50;150;100;0'

        For Each lig In Worksheets('liste').UsedRange.Rows
                If Left(lig.Cells(2), Len(ComboBox2)) = ComboBox2 Then
                        .AddItem lig.Cells(1).Text
                        .List(x, 1) = lig.Cells(2).Text 'nom
                        .List(x, 2) = lig.Cells(3).Text 'lht
                        .List(x, 3) = lig.Cells(5).Text 'port d'attache
                        .List(x, 4) = lig.Cells(6).Text 'pavillon
                        .List(x, 5) = lig.Cells(7).Text ' callsign
                        .List(x, 6) = lig.Cells(8).Text 'type
                        .List(x, 7) = lig.Cells(10).Text
                        .List(x, 8) = lig.row
                        x = x + 1
                End If
        Next lig
End With

End Sub

Cliquez pour agrandir...