XL 2010 Class de ListBox déSélection Item Impossible

[ChTi160]

Bonjour Le Forum

Je m'amuse à la construction d'un Agenda ,dont les périodes Horaires sont représentées par des ListBox à sélection (Unique ) de la Classe des ListBox (84) pouvant accueillir jusqu’à Quatre Rendez vous (1/4 d'heure).
la Sélection d'une des Lignes (Rendez vous) ,d'une des ListBox , de la Classe des ListBox me permet de récupérer les Infos de ce Rendez Vous.
Mais je n'arrive pas à supprimer la sélection de cette Ligne , comme visible sur la copie d'écran .
malgré les codes que j'ai essaye .
dont un exemple

Public Function NoSelectedRow(Ctrl As Control)
Dim temp
Application.EnableEvents = False
 With UsF_AGENDA
   With Ctrl 'est la ListBox ou la ligne a était sélectionnée
     temp = .ListIndex
                  .Selected(temp) = False 'Mais rien n'y fait
   End With
 End With
Application.EnableEvents = True
End Function

j'ai aussi testé la boucle sur les Items de la ListBox pour les désélectionner . (rien n'y fait)
Auriez vous une astuce ,Un code , pour que les Lignes sélectionnées dans mes ListBox ne le soient plus après récupération des Données?

Merci par avance
Amicalement
Jean marie

 

[ChTi160]

Bonsoir Si
Bonsoir Le Fil ,Le Forum
Ce sont des "ListBox d’Userform" qui sont utilisées .
je viens de tester et c'est super ! je vais donc utiliser cette façon de faire .
Merci à Tous pour votre participation à ce Fil.
je continue de le suivre Lol
Bonne fin de Soirée
Amicalement
Jean marie

 

[mutzik]

Arfffff,
J'ai encore appris des choses sur les modules de classe
Merci à vous