' On parcours la listview pour déterminer quel est l'élément qui est sélectionné For i = 1 To ListView1.ListItems.Count If ListView1.ListItems(i).Selected = True Then ' Il est trouvé, on l'enregistre et on sort de la boucle valeur = CStr(ListView1.ListItems(i)) Exit For End If Next i