Private Sub UserForm_Initialize()
'--Affiche quadrillage dans la ListView
'ListView1.Gridlines = True
'Gridlines.ForeColor = RGB(100, 0, 100)
'=======================
Dim i As Long, X As Long, k As Byte
With ListView1
'Entête
With .ColumnHeaders
.Clear
.Add , , "Réf ", 30 'titre de la colonne et largeur et alignement
.Add , , "Nom Produits", 80
.Add , , "Date", 65, lvwColumnCenter
.Add , , "Banque", 90
.Add , , "Opération", 100
.Add , , "Libellé", 125
.Add , , "Débit", 55, lvwColumnRight
.Add , , "Solde Restant", 55, lvwColumnRight
.Add , , "N° Chéque", 55, lvwColumnRight
End With
.View = lvwReport
.FullRowSelect = True
.Gridlines = True
' Chargement des données
For i = 2 To Sheets("Data").Range("B65536").End(xlUp).Row
.ListItems.Add , "K" & i, Sheets("Data").Cells(i, 1) '1ère Colonne
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Data").Cells(i, 2) '2ème Colonne
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(Sheets("Data").Cells(i, 3), "dd/mm/yyyy") '3ème Colonne
For k = 3 To 5
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Data").Cells(i, k + 1) 'Colonne 4 à 6
Next
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(Sheets("Data").Cells(i, 7), "# ##0.00") '7èmè Colonne
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(Sheets("Data").Cells(i, 8), "# ##0.00") '8èmè Colonne
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Data").Cells(i, 9) '9 èmè Colonne
Next
' Nom des Labels
For k = 1 To 9
Controls("Label" & k).Caption = ListView1.ColumnHeaders(k)
Next
.ListItems(1).Selected = False
End With
Alim_Combo
CommandButton2.Enabled = False
End Sub