Discussion :

[gritchou]

Bonjour,
lorsque je clique sur une de mes cases à cocher dans la listview, un message d'erreur sur la variable nbrcheck apparait (elle serait incompatible pour le comptage que j'esssaie d'effectuer).

Pourriez vous m'expliquer mon erreur?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
ListView_ItemCheck(ByVal Item As MSComctlLib.ListItem)
dim nbrcheck as Integer
nbrcheck=0   
 
If Item.Checked = true  Then 'ligne sélectionnée
      nbrcheck=nbrcheck + CInt(ListView.ListItems(Item.Index).ListSubItems(1).Text )
   Else  'la ligne est désélectionnée
     nbrcheck=nbrcheck - CInt(ListView.ListItems(Item.Index).ListSubItems(1).Text )
  End If
End Sub

[tirex28]

Bonjour,

Si tu veux compter le nombre d'éléments cochés d'un ListView nommé ListView1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
    Dim nbrcheck  As Integer
    Dim ListViewItem As ListItem
 
    For Each ListViewItem In ListView1.ListItems
        If ListViewItem.Checked Then nbrcheck = nbrcheck + 1
    Next
    MsgBox nbrcheck
End Sub

Plus d'information sur le ListView ici

Cordialement,

Tirex28/