Tri trop long

Bonjour,

J'aimerai accélérer la vitesse d’exécution d'une partie de code mais je ne sais pas comment m'y prendre.

J'ai plus de 4000 valeurs dans ma colonne, l'éxecution prend plus de 4 secondes

Ce code sert à alimenter une combobox en retirant les doublons.

listFNR = wbk2.Sheets(1).Range("C2:C" & Range("A" & Rows.Count).End(xlUp).Row)
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(listFNR)
    d(listFNR(i, 1)) = ""
        ComboBox1.List = d.Keys
Next i

Merci d'avance

Bonjour,

Le souci ne provient pas directement du code que tu présentes.

De mon côté, la durée d’exécution sur 8000 lignes est de 0.2 s.

Cordialement.

bonjour,

moi, je mettrais le chargement de la combobox1 en dehors de la boucle

listFNR = wbk2.Sheets(1).Range("C2:C" & Range("A" & Rows.Count).End(xlUp).Row)
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(listFNR)
    d(listFNR(i, 1)) = ""
Next i
ComboBox1.List = d.Keys

ps: la liste ne sera pas nécessairement triée.

gyrus a écrit :

Le souci ne provient pas directement du code que tu présentes.

En utilisant les outils de débogage, le problème vient bien de là.

H2so4, ça marche !

Merci à vous deux !