Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…