listbox checked

Bonjour, j'aurai voulu savoir comment faire pour lister toutes les lignes cochées dans une listbox avec les checkbox.
Merci

Quand c'est comme ça, marque au moins la réponse quoi...

salut,
comtention -> tout à fait d'accord. en attendant ce code te montre comment supprimer les items cochés (donc savoir lesquels le sont...)

---

'    SUPPRIMER LES ÉLÉMÉNTS SÉLECTIONNÉS D'UNE LISTBOX
'    http://www.codyx.org/snippet_supprimer-elements-selectionnes-listbox_546.aspx#1711
'    Posté par [ jrivet ] le 23/01/2008

---

'En VBA Public Sub DeleteSelectedItem(ByRef Li As MSForms.ListBox)
Public Sub DeleteSelectedItem(ByRef Li As ListBox)
Dim i As Integer
   'on boucle à l'envers pour eviter les erreurs
   'd'index suite à une suppression
   For i = Li.ListCount - 1 To 0 Step -1
       'Si l'element est selectionner => on le supprime
       If Li.Selected(i) Then Call Li.RemoveItem(i)
   Next
End Sub

---

'Exemple d'appel
Call DeleteSelectedItem(List1)
'----------------------------------------------------------------
'Remarques :
'J'ai cherché ce snippet pour une question posée sur le forum, et j'ai remarqué qu'il n'existait pas.
'Alors voilà....

++

---

Prenez un instant pour répondre à ce sondage svp 

Ok merci bien, je continuais mes recherches, tu m'as fait gagnier du temps .

A bientôt.

Voici comment j'avais à l'époque pour une listview donc a peu prés pareil pour une listbox
For a = 1 To ListView1.ListItems.Count
If ListView1.ListItems(a).Checked = True Then msgbox("coché")
Next

Voilà en espérant vous aidez