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
| Option Explicit
Private Sub UserForm_Initialize()
Dim Lig As Long, derLig As Long, LigList As Long, l As String
With ListView1
With .ColumnHeaders
.Clear
.Add , , "NOM", 110
.Add , , "prenon", 100
.Add , , "age", 100
End With
.Gridlines = True
.FullRowSelect = True
.HideColumnHeaders = False
.LabelEdit = 1
End With
With Sheets(1)
derLig = .Range("A" & Cells.Rows.Count).End(xlUp).Row
If derLig < 2 Then derLig = 2
LigList = 1
For Lig = 2 To derLig
l = "L" & Lig
ListView1.ListItems.Add , l, .Range("A" & Lig).Value
ListView1.ListItems(LigList).ListSubItems.Add , , .Range("C" & Lig).Value
ListView1.ListItems(LigList).ListSubItems.Add , , .Range("AB" & Lig).Value
LigList = LigList + 1
Next Lig
End With
End Sub |
Partager