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
| Private Sub UserForm_Activate()
Dim i As Byte
Dim tata As Integer
Application.ScreenUpdating = False
Feuil5.Select
u = Feuil5.Range("N65536").End(xlUp).Row
For i = 2 To u
If Feuil5.Range("O" & i).Interior.ColorIndex = 3 Then
UserForm3.ListBox1.ColumnWidths = "20;70;250;60;20;110;30"
ListBox1.AddItem
tata = ListBox1.ListCount - 1
ListBox1.List(tata, 0) = Feuil5.Range("A" & i).Value
ListBox1.List(tata, 1) = Feuil5.Range("B" & i).Value
ListBox1.List(tata, 2) = Feuil5.Range("C" & i).Value
ListBox1.List(tata, 3) = Feuil5.Range("H" & i).Value
ListBox1.List(tata, 4) = Feuil5.Range("I" & i).Value
ListBox1.List(tata, 5) = Feuil5.Range("J" & i).Value
ListBox1.List(tata, 6) = Feuil5.Range("P" & i).Value
End If
Next
Feuil1.Select
Application.ScreenUpdating = True
Label26 = u
End Sub |
Partager