Private Sub UserForm_Initialize()
Worksheets("dépenses").Select
With Me.ListView05
.View = 3
With .ColumnHeaders
.Add , , Cells(2, 1), 46, 0
.Add , , Cells(2, 2), 74, 2
.Add , , Cells(2, 3), 270, 0
.Add , , Cells(2, 4), 60, 1
End With
End With
...
End Sub
[COLOR="DarkGreen"]'Private Sub ListView05_ItemClick(ByVal Item As MSComctlLib.ListItem) '******* bug, error de compilation[/COLOR]
[PHP]Private Sub ListView05_Click()
Dim i As Integer, j As Integer
Dim k As Byte
TextBox01 = ListView05.ListItems(ListView05.SelectedItem.Index).Text
For k = 1 To 3
Controls("TextBox" & k + 1) = ListView05.ListItems(ListView05.SelectedItem.Index).SubItems(k)
Next
End Sub[/PHP]