Comment effacer checkboxes dans une listview

Bonjour a tous, Forum bonjour

Comment svp efface t'on dans une Listview les Checkboxes (case a cocher)

(1) Soit une a une

(2) soit plusieurs a la fois, par une boucle, je suppose ???

Bicause : Quand je sélectionne une ligne dans ma Listview la (case a cocher) se coche bien MAIS

quand je sélectionne une autre ligne, les précédentes cases restent cochées et bien sur ce n'ai pas le but.

Pas trouver comment faire pour éviter cela.

Merci pour votre aide et bonnes fêtes de fin d'année a vous.

Cdlt Raymond

J'avais oublier de mettre le code corresponds, désoler.

 

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
          Dim Chemin As String, Film As String, FilmSelection As String: Dim ListItem As ListItem

 With UserForm1.ListView1
            ListView1.ListItems.Item(ListView1.SelectedItem.Index).Checked = _
      Not ListView1.ListItems.Item(ListView1.SelectedItem.Index).Checked                               'Clic checkbox cochée

              'Set ListItem = ListView1.SelectedItem
           FilmSelection = UserForm1.ListView1.ListItems.Item(ListView1.SelectedItem.Index)

           Chemin = "H:\": Film = ListView1.ListItems(ListView1.SelectedItem.Index) & ".avi"
           Label91 = ListView1.ListItems(ListView1.SelectedItem.Index)                                   'Affiche le titre complet du film a visionner
   End With

       Shell """C:\Program Files\Windows Media Player\wmplayer.exe"" """ & Chemin & Film, vbMaximizedFocus  'Lance et visualise le film
End Sub