Bouton select all et diseable all avec userform Listbox

Chères amies, chers amis du forum

Je souhaite ajouter une case pour select all ou diseable all sur une list box pour soit tous sélectionner ou de sélectionner tous d'un seul coup, mais j'ai aucune idée du code, auriez vous une idée SVP?

Merci

NB: je n'arrive pas a faire une sélection multiple c'est bizarre il me semblé que c'etait possible avec une list box

bonsoir,

pour passer en multiSelection agit sur la propriété Multiselect

Code:

---

ListBox.Multiselect=fmMultiSelectMulti

---

pour sélectionner tu fais une boucle et tu agit sur le tableau Selected...

pour désélectionner tu change le mode de sélection en supprimant passant en fmMultiSelectSingle puis (la ligne suivante) tu repasse en multi..)