Bonsoir,
En détaillent cela donnerait:
Dim cRow As Integer
Dim cNom As String, cPrenom As String
With ListView
cRow = .SelectedItem.Index 'Index ligne selectionnée
cNom .ListItems(cRow).Text '1° colonne
cPrenom = .ListItems(cRow).ListSubItems(1).Text '2°colonne
End With
Text1.Text=cNom & " " & cPrenom
Mais tu pourras tout aussi bien faire cela en une seule ligne
et sans declaration de variables.
[] Ce qui va sans dire. va mieux en le disant.