2 listview, données non repris dans textbox

[news]

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 :

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]

 

[youky(BJ)]

Re : 2 listview, données non repris dans textbox

Bonjour News,
Manquerait pas ceci.........
Private Sub ListView5_Click()
TextBox1=..........????
TextBox2=..........????
et les autres....
End Sub

A te lire, bon aprés midi

 

[news]

Re : 2 listview, données non repris dans textbox

Re:youky(BJ)

Les Textbox 1,2,3 et 4 concernant les données de la 1ière listview5

Private Sub ListView5_Click() 'concerne les données à reprendre de la 1ière ListView
Dim i As Integer, j As Integer
Dim k As Byte
  Frame1.Visible = True
  Frame2.Visible = False
  TextBox1 = ListView5.ListItems(ListView5.SelectedItem.Index).Text
  For k = 1 To 3
      Controls("TextBox" & k + 1) = ListView5.ListItems(ListView5.SelectedItem.Index).SubItems(k)
  Next
End Sub

J'ai essayé de modifier Textbox01,02,03,04 en Textbox5,6,7,8
mais la macro n'effectue pas à compléter les données de la 2e ListView05 dans les Textbox.


BUG résolu, macro fonctionne :
aulieu d'utiliser des variables ( for ... next )
j'ai mis le code suivant :

.TextBox2 = ListView05.SelectedItem.ListSubItems(1)
.TextBox3 = ListView05.SelectedItem.ListSubItems(2)
.TextBox4 = ListView05.SelectedItem.ListSubItems(3)

news