XL 2016 Desselection item de listbox

J

jmfmarques

XLDnaute Accro

• 3 Avril 2020

• #16

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 .

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Avril 2020

• #17

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Avril 2020

• #18

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Avril 2020

• #19

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Avril 2020

• #20

Bonjour job75
et bien soit

VB:

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

testé avec 10000 lignes

 

Dernière édition: 3 Avril 2020

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 3 Avril 2020

• #21

job75 à dit:

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Avril 2020

• #22

patricktoulon à dit:

Bonjour job75
et bien soit

VB:

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

testé avec 10000 lignes

Cliquez pour agrandir...

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

VB:

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

 

Dernière édition: 3 Avril 2020

Vote positif 0 Vote négatif