XL 2013 VBA recherche plantage

[nemisius]

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

 

[Staple1600]

Bonsoir le fil, le forum

@nemisius
Ton bout de code est trop succinct.
Tu pourrais joindre une copie anonymisée de ton fichier pour qu'on puise voir comment sont agencées tes données et également le reste du code VBA ?

 

[eriiic]

Bonjour,

https://forum.excel-pratique.com/excel/plantage-vba-recherche-t99526.html
eric