case à cocher dans un list view

bargaoui
case à cocher dans un list view

Bonjour,
J'ai un List View Multi-colonne et à case à cocher,
voila la structure du list view:
N° Réservation | Pm |......
Je veux cocher les lignes qui ont la même valeur du PM ou bien un messege d'erreur et le système ne coche rien voila mon code
[CODE = vb6]
Private Sub List1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
For i = 1 To List1.ListItems.Count - 1
If l.ListSubItems.Item(i) <> l.ListSubItems.Item(i + 1) Then
MsgBox "Erreur"
End If
Next
End Sub
[/CODE]

Merci de m'aider

bargaoui
Re: case à cocher dans un list view

Je veux tester si deux lignes ou plus d'un listview sont identique à travers le numéro du pm qui est afficher sur le listview.
Donc je fais mon choix d'une ligne, je la coche, puis les autres lignes que je vais les cocher doivent êtres identique par le numéro du pm que jais choisi auparavant si non le système m'affiche un message d'erreur.
Merci de m'aider.

bargaoui
Re: case à cocher dans un list view

Pour ceux qui ont un truc paraît:

Private Sub List1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
Dim i As Long, chec As String
For i = 1 To List1.ListItems.Count
'ici on ignore la nouvelle case coché
If i <> Item.Index Then
'si on trouve un élément sélection on le prend le pm et on quitte la boucle
If List1.ListItems(i).Checked = True Then
 chec = List1.ListItems(i).SubItems(1)
Exit For
End If
End If
Next
If chec <> "" Then
'si le pm de la case a coché ne corresspend pas au pm de la case déja coché on la decoche et on affiche une alerte
If Not (List1.ListItems(Item.Index).SubItems(1) = chec) Then
Item.Checked = False
MsgBox "Vous devez cocher des réservations du même PM", vbCritical, "Erreur"
End If
Else
'si chec est vide on quitte
Exit Sub
End If
End Sub