Bonjour
Modification de ta Listview
A voir
Private Sub UserForm_Initialize()
With ListView1
.Gridlines = True
.View = lvwReport
.FullRowSelect = True
.ColumnHeaders.Add , , "Mois", 80
.ColumnHeaders.Add , , "ID", 60, lvwColumnCenter
.ColumnHeaders.Add , , "Montant", 60, lvwColumnRight
End With
With ActiveSheet
Dim Item As ListItem
Dim dl, i As Integer
Me.ListView1.ListItems.Clear
dl = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To dl
Set Item = Me.ListView1.ListItems.Add(Text:=.Cells(i, 1).Text)
Item.SubItems(1) = .Cells(i, 2)
Item.SubItems(2) = .Cells(i, 3)
Next i
End With
End Sub
A+
Maurice