Listview & checkbox Résolu

Question

Bonjour,

j'ai mis en place une ListView avec des checkbox. J'ai un bouton commande qui doit lancer une procédure prenant en compte uniquement les éléments cochés dans la listview.
Mon problème : arriver à identifier quelles lignes sont cochées dans la listview ...

J'imagine qu'il existe une procédure du style de celle de la listbox :

    Dim frm As Form, ctl As Control
    Dim varItm As Variant

    Set frm = Forms!Contacts
    Set ctl = frm!Names
    For Each varItm In ctl.ItemsSelected
        Debug.Print ctl.ItemData(varItm)
    Next varItm

mais je n'arrive pas à trouver ... Quelqu'un aurait-il une idée ? Merci par avance

Jemby

jrivet · Accepted Answer

Salut, 
essaie ceci
Dim LItem As ListItem 
For Each LItem In lv.ListItems  'Remplace lv par le nom de ton listview
    If LItem.Checked Then MsgBox LItem 
Next 

@+: Ju£i?n
Pensez: Réponse acceptée

AH60 · Answer

Bonjour

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
If Item.Checked = True Then
Item.ForeColor = RGB(255, 0, 0) 'Changement couleur
 Item.Bold = True 'Gras
 Ligne=Item.index 'N° de ligne
 msgbox Ligne
endif
end sub

Abed_H

jemby · Answer

Merci Julien,

c'est parfait

A+

Jemby

Listview & checkbox

3 réponses

Votre réponse

Discussions similaires