Private Sub UserForm_Initialize[COLOR="red"]1[/COLOR]()[COLOR="SeaGreen"] '1 à supprimer[/COLOR]
Dim d As Range, j As Integer[COLOR="red"], test As Integer [/COLOR][COLOR="seagreen"]'si test = operateur alors test est de type string comme operateur (à supprimer)[/COLOR]
Application.ScreenUpdating = False
[COLOR="red"]test = operateur[/COLOR] [COLOR="seagreen"]' à supprimer inutile[/COLOR]
ListView2.View = lvwReport
ListView2.FullRowSelect = True
Sheets("Données").Activate
Me.ListView2.ColumnHeaders.Clear 'on remplit les entetes de colonnes de la listview
With Me.ListView2.ColumnHeaders
.Add , , "Date", 60
.Add , , "Dossier", 30, lvwColumnCenter
.Add , , "H. terrain", 53, lvwColumnCenter
.Add , , "H. bureau", 53, lvwColumnCenter
.Add , , "H. dossier", 53, lvwColumnCenter
.Add , , "Travail effectué", 127
End With
Label1.Caption = "Opérateur : " & operateur
Me.ListView2.ListItems.Clear
j = 1
With Worksheets("Données")
.Range("b6").AutoFilter Field:=[COLOR="red"]1[/COLOR], Criteria1:=operateur [COLOR="seagreen"]'si field=1 on va filtrer sur la colonne 1 (à remplacer par 2)[/COLOR]For Each d In .Range("b6", [b65536].End(xlUp)).SpecialCells(xlCellTypeVisible)
Me.ListView2.ListItems.Add , , [COLOR="red"]c[/COLOR].Offset(0, 1)
Me.ListView2.ListItems([COLOR="red"]i[/COLOR]).ListSubItems.Add , , [COLOR="red"]c[/COLOR].Offset(0, -1)
Me.ListView2.ListItems([COLOR="red"]i[/COLOR]).ListSubItems.Add , , [COLOR="red"]c[/COLOR].Offset(0, 2)
Me.ListView2.ListItems([COLOR="red"]i[/COLOR]).ListSubItems.Add , , [COLOR="red"]c[/COLOR].Offset(0, 3)
Me.ListView2.ListItems([COLOR="red"]i[/COLOR]).ListSubItems.Add , , [COLOR="red"]c[/COLOR].Offset(0, 5)
Me.ListView2.ListItems([COLOR="red"]i[/COLOR]).ListSubItems.Add , , [COLOR="red"]c[/COLOR].Offset(0, 4)
[COLOR="seagreen"]'les i sont à remplacer par j et les c par d[/COLOR]
j = j + 1
Next d
End With
Worksheets("Données").Range("a1").AutoFilter
[COLOR="red"]Application.ScreenUpdating = True[/COLOR][COLOR="seagreen"] ' à supprimer inutile[/COLOR]
End Sub