Code de sélection a modifier dans Listview

Bonsoir a tous, Bonsoir forum

sous Excel 2007 VBA

Après maintes essais, j'arrive a sélectionner dans ma listview1 une ligne en cliquant sur la case a cocher.

(1) Je coche la case, la ligne passe surbrillance bleu et le film sélectionner démarre.

(2) Mais si je re-coche une autre ligne le nouveau film choisi démarre toujours

>>> MAIS la case précédente (reste cocher) MAIS pas la ligne.

Après essais pour effacer (la où les cases qui sont rester cocher SAUF bien sur la dernière sélection qui doit rester cocher et en surbrillance),.

-Il me manque ce test que je n'arrive pas a faire fonctionner

si quelqu'un veux bien m'aider, je l'en remercie par avance

PS: Je viens de m'apercevoir que lorsque je clic pour sélectionner vers le bas c'est bon
MAIS pas vers le haut ca coche seulement la case mais pas la ligne.

Donc encore un soucis pas prévu.

Bon réveillon a tous et merci

Cdlt Raymond

 
'### Sélection d'un film dans Listview1 par(ItemCheck)
Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
        Dim Chemin As String: Dim ListItem As ListItem: Dim i As Integer, Efface As Integer
        Dim FilmSelection As String

      For i = 1 To ListView1.ListItems.Count

                If ListView1.ListItems(i).Checked = True Then

                   ListView1.ListItems(i).Selected = True

      If ListView1.ListItems(i).Checked = False Then ListView1.ListItems(i).Checked = True

                End If
Next i
                          FilmSelection = ListView1.ListItems.Item(ListView1.SelectedItem.Index)

'#################
'Efface les checkbox qui sont cochés SAUF celle qui est sélectionner
'Mais ca ne fonctionne pas

'For Efface = 1 To ListView1.ListItems.Count
'  If ListView1.ListItems(Efface).Checked = True Then ListView1.ListItems(Efface).Checked = False
'Next Efface
'################

           Label91.Caption = Left(FilmSelection, Len(FilmSelection) - 4)      '& ".avi" 'Affiche titre du film a visionner sans extension .avi
           WindowsMediaPlayer1.URL = "H:\" & FilmSelection                    'Lance et visualise le film avec le nom complet

           WindowsMediaPlayer1.Width = 240                                    'Largeur du WMP
           WindowsMediaPlayer1.Height = 240                                   'Hauteur du WMP
           WindowsMediaPlayer1.uiMode = "Full"                                'Mode "Full Mini None Invisible"
End Sub