Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox1.RowSource = ListBox1.RowSource
End Sub
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.@jmfmarques pour avoir un produit bio utiliser le code de mon post #6.
Chez moi il faut d'abord effacer [Edit] si ListBox1.MultiSelect = 0 :Bonjour job75
et bien soit
testé avec 10000 lignesVB:Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean) ListBox1.RowSource = ListBox1.RowSource End Sub
ListBox1.RowSource = ""
ListBox1.RowSource = "A2:B100001"