Discussion :

[dayamaya]

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

[boisgontierjacques]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dayamaya]

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

[boisgontierjacques]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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