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 30 31 32 33 34 35 36 37 38
|
Private Sub CommandButton1_Click()
Me.Hide
End Sub
Private Sub UserForm_Activate()
'Suppression des titres de colonnes
ListView1.ColumnHeaders.Clear
'Alimentation des titres de colonne :
ListView1.ColumnHeaders.Add , , "Mois", ListView1.Width * 0.13, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Nom", ListView1.Width * 0.27, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Nº MobilHome", ListView1.Width * 0.15, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Date", ListView1.Width * 0.15, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Duree", ListView1.Width * 0.1, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Reglement", ListView1.Width * 0.1, lvwColumnRight
ListView1.ColumnHeaders.Add , , "Total", ListView1.Width * 0.08, lvwColumnRight
'on remplit la listview
With Me.ListView1
.ListItems.Clear
For Each v In Range("a4:a" & Range("a65536").End(xlUp).Row)
x = x + 1
.ListItems.Add , , v
.ListItems(x).ForeColor = v.Font.Color
For j = 1 To 6
.ListItems(x).ListSubItems.Add , , v.Offset(0, j)
.ListItems(x).ListSubItems(j).ForeColor = v.Offset(0, j).Font.Color
Next j
Next v
End With
End Sub |
Partager