code listbox a modifier pour une litview

Bonjour a vous tous
Le code ci-dessous fonctionne avec une listbox, mais comment faire pour qu’il fonctionne dans une listview

Code:

---

1 2 3 4

For i = 0 To Nb - 1 If UserForm1.ListBox1.Selected(i) = True Then Element_Select = True Sheets(F1).Activate

---

J’essai de remplacer le code ci-dessus par celui-ci mais ça bug

Code:

---

1 2 3 4

For i = 0 To Nb - 1 If UserForm1.ListView1.ListSubItems.Add(i) = True Then Element_Select = True Sheets(F1).Activate

---

Merci de votre compréhension
Cordialement

Bonjour,
Boucle sur un contrôle ListView et teste si la ligne est sélectionnée :

Code:

---

1 2 3 4 5 6

Dim Lign As Integer For Lign = 1 To ListView1.ListItems.Count If ListView1.ListItems(Lign).Selected = True Then 'bla bla VOTRE CODE ICI End If Next Lign

---

Bonjour Pijaku:ccool:
un grand MERCI:ccool:
Tasolution me vas parfaitement a moi maintenant de l'adapter, tu a fait ta part et je t'en remercie:ccool::ccool:

cordialement

Pascal