Dim m As Integer For m = 1 To ListView1.ListItems.Count If ListView1.ListItems(m).Selected = True Then 'si la donnée à afficher est dans la premiere colonne Me.TextBox1.Text = ListView1.ListItems(m) 'si la donnée à afficher est dans la deuxième colonne 'Me.TextBox1.Text = ListView1.ListItems(m).SubItems(1) 'si la donnée à afficher est dans la troisième colonne 'Me.TextBox1.Text = ListView1.ListItems(m).SubItems(2) Exit For End If Next m