désélectionner un item dans un listbox
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 :
Code:
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 |
Remarquez, je peut toujours vider la liste et la remplir au moment du LostFocus... Mais je ne trouve pas ça très "joli"...
Merci pour vos éventuelles réponses... et bon week-end...
Denis