Bonjour à tous du forum,
je voudrais terminer les userform, mais j'ai encore des choses incompréhensives.
La macro ne fonctionne pas correctement.
Dans la 2e listview05, les données ne sont pas reprises dans Textbox01-04,
J'utilise le code suivant :
je voudrais terminer les userform, mais j'ai encore des choses incompréhensives.
La macro ne fonctionne pas correctement.
Dans la 2e listview05, les données ne sont pas reprises dans Textbox01-04,
J'utilise le code suivant :
HTML:
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]
Dernière édition: