Discussion :

[vins74]

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.

[bboy-eazy]

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

[vins74]

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".

[bboy-eazy]

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

[vins74]

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 :

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

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".

[eriiic]

Bonjour,

un exemple.
eric

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