XL 2016 Desselection item de listbox

[KTM]

Bonjour chers tous
Je voudrais savoir comment désélectionner dans mon listbox en double-Cliquant dans mon userform
Merci

 

[jmfmarques]

A KTM
Bien évidemment, que cela fonctionne dans tous les cas, mais c'est un gachis de ressources et de temps en cas de listbox à sélection unique et de plusieurs milliers d'articles .

 

[job75]

@jmfmarques pour avoir un produit bio utiliser le code de mon post #6.

 

[patricktoulon]

re
bonjour
comme visiblement je suis passé invisible
je le redis
il suffit de remettre la liste
.list =.list

 

[job75]

@patricktoulon .List =.List ne va pas avec .RowSource.

 

[patricktoulon]

Bonjour job75
et bien soit

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox1.RowSource = ListBox1.RowSource
End Sub

testé avec 10000 lignes

 

[jmfmarques]

@jmfmarques pour avoir un produit bio utiliser le code de mon post #6.

Il ne s'agit pas de "biologie" mais d' "écologie". N'est pas vraiment écologique, par exemple et entre autres, le double-emballage. Cf mes messages #10 et #13.

 

[job75]

Bonjour job75
et bien soit

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox1.RowSource = ListBox1.RowSource
End Sub

testé avec 10000 lignes

Chez moi il faut d'abord effacer [Edit] si ListBox1.MultiSelect = 0 :

ListBox1.RowSource = ""
ListBox1.RowSource = "A2:B100001"