Microsoft 365 Listbox choix multiples

[G@vroche]

Bonjour,

J'utilise une listbox pour remplir une cellule.
Je souhaite que la sélection soit unique. Mais je souhaite éventuellement ne rien sélectionner. J'utilise donc une listbox à choix multiple afin de pouvoir supprimer la sélection.
A ma connaissance, une listbox à choix unique n'autorise pas la désélection.

Existe-t-il une solution, soit pour retirer la sélection d'une listebox à choix unique, soit pour qu'une nouvelle sélection dans une listebox à choix multiple retire la sélection précédente?

 

[jmfmarques]

Bonjour
Pourquoi à choix multiples ?

listbox1.listindex = -1

désélectionne la listbox simple listbox1

 

[G@vroche]

Merci pour ta réponse jmfmarques.
Mais je souhaite pouvoir désélectionner avec un simple clic.
C'est pour cela que j'utilise une listbox à choix multiple.

 

[jmfmarques]

je ne vois pas l'utilité réelle d'une telle démarche, mais, si tu y tiens, utilise donc l'un des évènements de ta listbox.
Celui-ci, par exemple :

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 If Button = 2 Then ListBox1.ListIndex = -1
End Sub

de-sélectionnera au clic droit.