Comment afficher les données du listview en textbox

bonjour forum

qualqun peux m'aider d' afficher les données du listview en textbox

cdt

BONJOUR

je fais se code mais il n'affiche rien

cdt

Private Sub ListView4_Click()
Dim maLigne As Long
Dim RefProd As Integer
'Affiche les infos du produit
    maLigne = Range("A" & Rows.Count).End(xlUp).Row + 1
    While Feuil4.Cells(maLigne, 1) <> ""
        If Feuil4.Cells(maLigne, 1) = RefProd Then
                TextBox26 = Feuil4.Cells(maLigne, 1)
                TextBox27 = Feuil4.Cells(maLigne, 2)
                TextBox28 = Feuil4.Cells(maLigne, 3)
                TextBox29 = Feuil4.Cells(maLigne, 4)
                TextBox30 = Feuil4.Cells(maLigne, 5)
                TextBox31 = Feuil4.Cells(maLigne, 6)
                TextBox32 = Feuil4.Cells(maLigne, 7)
               TextBox33 = Feuil4.Cells(maLigne, 8)
               TextBox45 = Feuil4.Cells(maLigne, 9)
                TextBox46 = Feuil4.Cells(maLigne, 10)
        End If
       maLigne = maLigne + 1
    Wend

    'Affiche si stock égale zéro
    If TextBox33 = 0 Then        'TextBox_Qté_sto
        TextBox33.Font.Bold = True
        TextBox33.BackColor = vbRed
    Else
        TextBox33.Font.Bold = False
        TextBox33.BackColor = &H8000000F
    End If

End Sub

bonjour forum

Qui peut me corriger mon code ,je n'arrive pas a afficher le premier collone

merci

Private Sub ListView4_Click()
'Dim maLigne As Long
'Dim index1 As Integer
Dim i As Long
For i = 1 To ListView4.ListItems.Count
    'Affiche le contenu de la 1ere colonne pour chaque ligne sélectionnée
    If ListView4.ListItems(i).Selected = True Then MsgBox ListView4.ListItems(i).Text

With ListView4.ListItems(ListView4.SelectedItem.Index)
   ' TextBox26.Value = .ListSubItems(0)
     TextBox27.Value = .ListSubItems(1)
     TextBox28.Value = .ListSubItems(2)
     TextBox29.Value = .ListSubItems(3)
     TextBox30.Value = .ListSubItems(4)
    TextBox31.Value = .ListSubItems(5)
    TextBox32.Value = .ListSubItems(6)
    TextBox33.Value = .ListSubItems(7)
    TextBox45.Value = .ListSubItems(8)
    TextBox46.Value = .ListSubItems(9)
    'Lbl_dureeOperation.Caption = .ListSubItems(8)
End With
Next
End Sub

bonjour

Je pense que personne ne veux m' aidez de ce sujet

cdt

bonjour

j'essaie d'afficher la collone 1 (Auteur) a textbox26 mais rien ne se passe

les autres collones s'affiche (ok)

aidez moi svp

Bonjour

je trouve la solution avec difficulte

cdt

Private Sub ListView4_Click()
Dim i As Long
For i = 1 To ListView4.ListItems.Count
    'Affiche le contenu de la 1ere colonne pour chaque ligne sélectionnée
    If ListView4.ListItems(i).Selected = True Then MsgBox ListView4.ListItems(i).Text

With ListView4.ListItems(ListView4.SelectedItem.Index)

    TextBox26.Value = ListView4.SelectedItem
     TextBox27.Value = .ListSubItems(1)
     TextBox28.Value = .ListSubItems(2)
     TextBox29.Value = .ListSubItems(3)
     TextBox30.Value = .ListSubItems(4)
    TextBox31.Value = .ListSubItems(5)
    TextBox32.Value = .ListSubItems(6)
    TextBox33.Value = .ListSubItems(7)
    TextBox45.Value = .ListSubItems(8)
    TextBox46.Value = .ListSubItems(9)
End With
Next
End Sub