Recherche dans ListBox

J’ai un classeur de plusieurs lignes (7123) pour faire la recherche dans le classeur j’ai cherché et j’ai trouvé un code que j’ai essayé d’aménager mais en vain. Le problème et que le listbox n’affiche pas tout le tableau et qu’il est trop lent à s’ouvrir et à faire la recherche.
Je voudrais avoir une solution à ce problème et je vous remercie d’avance
Lien du fichier

https://www.cjoint.com/c/HLvuyezKCsq

Bonjour,

Formulaire de recherche intuitive multi-mots multi-colonnes:

C'est un programme paramétré. Si des colonnes sont ajoutées dans la BD, il faut modifier:

Code:

---

1 2 3

Set Rng = f.Range("A2:L" & f.[A65000].End(xlUp).Row) ' à adapter colInterro = Array(1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 12) ' colonnes à interroger (adapter) colVisu = Array(1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 12) ' colonnes à visualiser dans listbox (adapter)

---

Boisgontier

je vous remercie vivement vous m'avez sauvé et bonne continuation.

Bonjour,

Si la BD est sous forme de tableau structuré nommé Tableau1, il n'est pas nécessaire de définir la BD.

Code:

---

1 2 3

colInterro = Array(1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 12) ' colonnes à interroger (adapter) colVisu = Array(1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 12) ' colonnes à visualiser dans listbox (adapter)

---

Boisgontier