Filtre VBA par terme en textbox

Bonjour,

Je suis nouveau, et après de très longue recherche sur le net, je n'ai toujours pas réussi à résoudre mon probleme.

Je souhaiterais faire un filtre direct, (je pensais à un textbox par colonne) qui permettrais de filtrer le classeur en fonction du/des terme(s) renseigné(s) complet ou partiellement.

ex: j'écris "cre" dans le textbox référencé à la colonne "B", et un filtre sur le classeur agirais en ne me montrant que les lignes ou le terme "*cre*" est présent dans la colonne B.

En espérant avoir été suffisament clair,

Merci d'avance pour votre aide.

Bonjour,

Veux-tu un filtre au fur et a mesure du remplissage du textbox ou un filtre direct (en mettant "cre", on filtre sur "cre" et "cre" est le mot entier?)

car si tu veux filtrer sur un mot précis il y a la méthode: sort

En fait je souhaite que le filtre se fasse dès la premiere lettre puis s'affine en fonction de la précision rentré dans le textbox.

et avec je pense des étoiles ex: *texte* pour faire la fonction "contient" et pas "exacte".

D'accord alors n'étant pas un expert en la matière, je conseillerai plutôt de faire une listbox et de filtrer la listbox par un combobox.

Mais on ne sait jamais si un expert à une autre idée

J'ai déjà utilisé une solution que j'ai trouvé sur le net, qui utilisait listbox+textbox mais le tri ne se fait alors que par un remplissage couleur dans le tableau, et un filtre dans le listbox.

pour mon utilisation, je n'ai pas forcément besoin de la listbox mais c'est un détail, par contre le tri m'est beaucoup plus important.

Voici le code utilisé:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub TextBox1_Change()   Application.ScreenUpdating = False   Range("A1:A24").Interior.ColorIndex = 2     If TextBox1 <> "" Then For ligne = 1 To 24 If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then Cells(ligne, 1).Interior.ColorIndex = 45   End If Next End If   End Sub

---

Sinon je ne connait pas encore le terme "combobox".

Bonjour,

un exemple.
eric

EDIT : nouvelle version permettant un filtre sur valeur numérique exacte.

Superbe !

Un enorme merci à toi!

Depuis le temps que je cherche :)



Edit: J'ai mis en place le modèle sur mon fichier, et je me demandais,

Comme il est plutot lourd, est-il possible de rajouter à ces lignes quelquechose du genre "Application.ScreenUpdating = False " pour accelerer le temps de recherche?

Et si sur une collone qui sera tout le temps paramétré en nombre, est-il possible d'éviter de faire la modif en texte?

Le

Code:

---

Application.ScreenUpdating = False

---

ne posera pas de problème. A mettre en début de macro

Tu peux toujours mettre Application.ScreenUpdating = False mais ça ne changera pas grand chose à mon avis, vu que les lignes ne sont pas masquées une à une mais d'un coup par le filtre.
Il vaudrait mieux utiliser un évènement qui a lieu en fin de saisie pour ne filtrer qu'une fois. Mais on perd l'affinage au fur et à mesure de la saisie.

Ajout : permettre une recherche numérique exacte au lieu de Contient sur les colonnes de son choix

eric

Encore merci Eriic pour ta réponse rapide,

Je vais pouvoir essayer de mettre ça en place sur mon fichier. (23k cellules renseignés, ça doit venir de là le temps de filtre, il va falloir que je pousse mon employeur à remplacer les ordi) ^^

EDIT: mon tableau n'aura pas de nouvelle colonne, du coup j'ai préféré adapter la formule directement plutot que faire le jeux des couleurs,

Mon nouveau probleme est encore le temps de recherche, sur la colonne numérique (en exact) je rentre une référence à 8 chiffres, mais malgrès que la recherche ne puisse aboutir qu'au dernier caractere saisi, il fait quand meme une recherche à chaque chiffre et c'est plutot long...

Y a t-il une façon de faire pour que la recherche ne se fasse qu'au bout du 8eme caractère renseigné?.

Bonjour,

Bien sûr.
Ajoute au début des procédures Change concernées :

Code:

---

If Len(nom_du_textbox) < 8 Then Exit Sub

---

eric

Génial!! ça marche impeccable, tu dois être la divinité d'excel pour répondre à mes suppliques aussi vite ! :)