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 : 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
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