Utilisation TextBox ListBox en VBA

Bonjour,

J'ai adapté un programme selon mes besoins. Par contre ce que j'ai fait n'est pas forcément l'idéal 8O et je souhaite rendre mon programme efficace. Je m'explique, j'ai une base de données que je remplie au fur et à mesure et ce que je veux c'est faire une recherche avec une textbox et afficher le résultat de la recherche dans une listbox. J'y arrive lorsque les box sont dans la même feuille. Par contre je veux effectuer cette recherche dans une feuille différente. J'ai essayé différentes solutions sans succès :aie: quelqu'un pourrait-il m'aider ? je mets en pièce jointe le programme

Bonjour,

Je ne suis pas certain de bien comprendre...
Si tu veux faire une recherche sur une autre feuille, il faut changer ces 2 lignes, il me semble

Code:

---

1 2	Set O = Sheets("Remplissage") 'définit l'onglet O TC = O.Range("A2").CurrentRegion 'définit le tableau de cellules TC

---

Bonjour Parmi,

Le programme fonctionne lorsque j'ai la textbox et la listbox dans la feuille de la base de données. Moi ce que je souhaiterais concrètement c'est de pouvoir faire la recherche et l'affichage (la textbox et la listbox) dans une feuille différente de celle de la base données. Aurais-tu des suggestions ? Merci par avance :D

Tu parles de textbox et listbox sur une autre feuille, mais ton code semble être sur un Userform (?!)

Re,

C'est pour cela qu'au début je parlais d'adaptation. Je me suis inspiré d'un userform mais j'ai fait une insertion directe de mon textbox et de mon listbox dans la feuille.

Comme spécifié dans mon message #2, il suffit simplement de spécifier la feuille qui contient les données.
Pour les contrôles, si ça fonctionne vraiment sur une feuille, ça ne devrait rien changer qu'ils soient sur une autre.

Par contre, tu devras apporter des modifications au code que tu donnes, parce que Me est un Userform dans

Code:

---

Me.ListBox1.ColumnCount = ...

---

Il faut alors que tu spécifies le nom de la feuille en remplacement du Me

Code:

---

Sheets("Feuil2").ListBox1.ColumnCount = ...

---

Re !! Merci pour les tuyaux je vais faire cette modification