voila je t'ai fait un petit exemple vue que tu nous a pas donné ton code (la prochaine fois essai de nous montré un peut plus de code lol), ajoute un control listview nomé listview1 sur ta form et met ce code:
Private Sub Form_Load()
ListView1.View = lvwReport
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
With ListView1.ColumnHeaders
.Add , , "N°"
.Add , , "PM"
.Add , , " Autre..."
End With
'on rempli la list
ListView1.ListItems.Add , , "1"
With ListView1.ListItems(1).ListSubItems
.Add , , "kikou"
.Add , , "ajoute ce que tu veut"
End With
ListView1.ListItems.Add , , "2"
With ListView1.ListItems(2).ListSubItems
.Add , , "rien"
.Add , , "ajoute ce que tu veut"
End With
ListView1.ListItems.Add , , "3"
With ListView1.ListItems(3).ListSubItems
.Add , , "salut"
.Add , , "ajoute ce que tu veut"
End With
ListView1.ListItems.Add , , "4"
With ListView1.ListItems(4).ListSubItems
.Add , , "kikou"
.Add , , "ajoute ce que tu veut"
End With
ListView1.ListItems.Add , , "5"
With ListView1.ListItems(5).ListSubItems
.Add , , "salut"
.Add , , "ajoute ce que tu veut"
End With
ListView1.ListItems.Add , , "6"
With ListView1.ListItems(6).ListSubItems
.Add , , "rien"
.Add , , "ajoute ce que tu veut"
End With
End Sub
Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
'on parcour la liste pour voir si on a un item coché
Dim i As Long, chec As String
For i = 1 To ListView1.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 ListView1.ListItems(i).Checked = True Then
chec = ListView1.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 (ListView1.ListItems(Item.Index).SubItems(1) = chec) Then
Item.Checked = False
MsgBox "incorrect"
End If
Else
'si chec est vide on quitte
Exit Sub
End If
End Sub
et n'oubli pas de cliquer sur Réponse accépter comme l'autre sujet
Quand on pose une question on est con 5 minutes,Quand on ne la pose pas on le reste toute sa vie