XL 2013 VBA recherche plantage

nemisius

XLDnaute Nouveau
Bonjour à tous,

J'ai une base de données avec quelques milliers d'enregistrements. J'ai produit mes formulaires, tout est terminé. Mais voilà que lors de la démonstration (après avoir chargé leur base de données) pouf, erreur. Quand je découpe la base (en ne laissant que 800 lignes) ça marche. Mais lorsque j'augmente le nombre de ligne (2000) j'ai une erreur et tout plante. La base fera facilement 10.000 lignes. Chaque ligne n'est pas longue, mais bon.

Bref, voici le code VBA de mon formulaire de recherche. Existe-t-il une solution à mon problème ?

Un tout grand merci



'Formulaire de recherche réactif
Private Sub TextBox2_Change()
Me.ListBox1.Clear
For Each C In [Liste]
If UCase(C) Like "*" & UCase(Me.TextBox2) & "*" Then Me.ListBox1.AddItem C
Next C
End Sub
 

Statistiques des forums

Discussions
314 963
Messages
2 114 806
Membres
112 253
dernier inscrit
seynoujosaphate