Bonjour à tous,
A force de chercher une solution à mon problème, je suis arrivé ici :
http://www.developpez.net/forums/d14...x/#post7872439
. Voilà, j'ai fais un petit code pour désélectionner in item dans un listbox (nommé LstMenu).
Il ne me désélectionne rien dans ma feuille active, et pourtant, mon LstMenu.ListCount me répond "7"
Voici mon code qui est inopérant :
Remarquez, je peut toujours vider la liste et la remplir au moment du LostFocus... Mais je ne trouve pas ça très "joli"...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Private Sub LstMenu_LostFocus() Debug.Print ActiveSheet.LstMenu.ListCount For a = 0 To ActiveSheet.LstMenu.ListCount ActiveSheet.LstMenu.Selected(a) = False Next End Sub
Merci pour vos éventuelles réponses... et bon week-end...
Denis
Partager