Alimenter une listbox

bonjour forum,

je cherche à alimenter une listbox seulement avec les valeurs d'une colonne qui finissent par "_1"

un peu d'Aide?

Salut,

La prochaine fois, un petit fichier modèle ne ferait pas tâche

Selon ce que j'ai compris, tu as ta solution dans le fichier ci-joint.

Cordialement.

161essai-10-02.xlsm (18.02 Ko)

Bonsoir,

Additem est lent, utiliser List

Private Sub UserForm_Initialize()
  Set f = Sheets("feuil1")
  Set d = CreateObject("Scripting.Dictionary")
  a = f.Range("A2:D" & f.[A65000].End(xlUp).Row).Value
  For i = LBound(a) To UBound(a)
    If Right(a(i, 1), 2) = "_1" Then d(a(i, 1)) = ""
  Next i
  Me.ListBox1.List = d.keys
End Sub

Ceuzin

Salut Ceuzin,

ceuzin a écrit :

Additem est lent

Tout est relatif : Ma ListBox du fichier démo s'ouvre sur ma machine et 0,037 secondes

Amicalement.

Bonjour,

  • Pour 20.000 lignes: 1,4 seconde pour Additem contre 0,04 sec avec List
  • Pour un ListBox de 10 colonnes, je n'ose pas imaginer le temps.

Ceuzin

143listboxcondition2.zip (264.30 Ko)

Merci à tous

Rechercher des sujets similaires à "alimenter listbox"