1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| Sub Macro1()
Dim i, K, Y As Integer
NbLgne = Sheets("feuil1").Range("a65000").End(xlUp).Row
Application.ScreenUpdating = False 'désactive la mise à jour de l'écran
ListBox1.Clear
K = 0
For Y = 0 To GL.ListBox3.ListCount - 1
If GL.ListBox3.Selected(Y) = True Then
For i = 2 To NbLgne + 1
If Cells(i, 6) Like GL.ListBox3.List(Y) & "*" Then
GL.ListBox1.AddItem
GL.ListBox1.List(K, 0) = Sheets("feuil1").Cells(i, 1)
GL.ListBox1.List(K, 1) = "| " & Sheets("feuil1").Cells(i, 3) ' 2ème colonnes List1
K = K + 1
Next i
End If
Next Y
Application.ScreenUpdating = True 'active la mise à jour de l'écran
End Sub |