Private Sub UserForm_Initialize()
Inilistview
End Sub
Sub Inilistview()
Dim m&, n&, fin&, col&
fin = Sheets("Liste doc émis").Range("i65536").End(xlUp).Row
col = 19
With ListView1
.ListItems.Clear
With .ColumnHeaders
.Clear
For m = 9 To col
.Add , , Sheets("Liste doc émis").Cells(1, m), 60
Next
End With
.View = lvwReport
.FullRowSelect = True
.Gridlines = True
For m = 2 To fin
'x = Sheets("Liste doc émis").Cells(m, 10) = NomSociété
'y = Sheets("Liste doc émis").Cells(m, 11) = "N"
'If x And y Then
.ListItems.Add , , Feuil6.Cells(m, 9)
For n = 10 To col
.ListItems(.ListItems.Count).ListSubItems.Add = Feuil6.Cells(m, n)
Next
'End If
Next
End With
End Sub