Private Sub UserForm_Initialize()
Dim C As Range
Dim LstVitem As Object
Dim LstVSitem As Object
Dim Ws As Worksheet
Dim DerLgn As Integer
With Lv
With .ColumnHeaders
.Clear
.Add , , "Code", 30
.Add , , "Définition", 130
.Add , , "Montant", 50, lvwColumnRight
End With
.Gridlines = True
.FullRowSelect = True
.View = lvwReport
End With
Set Ws = Worksheets("Tableau")
DerLgn = Ws.Cells(Ws.Rows.Count, 1).End(xlUp).Row - 1
For Lgn = 1 To DerLgn
With Lv
Set LstVitem = .ListItems.Add(, , Ws.Cells(Lgn, 1).Value)
With LstVitem
.ForeColor = Ws.Cells(Lgn, 1).Interior.Color
Set LstVSitem = .ListSubItems.Add(, , Ws.Cells(Lgn, 2).Value)
With LstVSitem
.ForeColor = Ws.Cells(Lgn, 1).Interior.Color
End With
Set LstVSitem = .ListSubItems.Add(, , Application.Substitute(Format(CDbl(Ws.Cells(Lgn, 3).Value), "0.00"), ",", "."))
With LstVSitem
.ForeColor = Ws.Cells(Lgn, 3).Interior.Color
End With
End With
End With
Next
Set LstVitem = Nothing
Set LstVSitem = Nothing
End Sub