Filtrer le tableau

Bonjour à tous,

Je vous demande de l'aide. J'ai trouver un filtre pour faire ressortir le nom des articles qui comporte le critère de recherche.

Si j'utilise le filtre sur une liste d'article, le filtre marche. Les articles qui comportes le critère de recherche sont les seules apparentes.

Lorsque je crée un tableau avec ma liste d'article, le filtre ne fonctionne plus. Lorsque j'inscrit un critère de recherche, le tableau se retrouve vide. Si je vide la case de recherche, les articles réapparaissent.

Pièce jointe 601790


Je vous mets le code utilisé.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Option Explicit Sub Filtrer() Dim Cel As Range Dim Tableau1 Dim i As Integer Dim Test As Boolean   Application.ScreenUpdating = False Rows.Hidden = False For Each Cel In Range("A5:A" & Range("A" & Rows.Count).End(xlUp).Row) Test = False Tableau1 = Split(Cel, " ") For i = 0 To UBound(Tableau1) If UCase(Trim(Range("$A$2"))) = "" Then Test = True Exit For End If   Next i If Test = False Then Cel.EntireRow.Hidden = True Else Cel.EntireRow.Hidden = False End If Next Cel Application.ScreenUpdating = True End Sub

---

Je suis une novice dans la création de code. J'ai essayé de faire des modifications dans le code pour qu'il puisse fonctionné et je n'ai toujours pas trouvé la solution.

Si vous pouviez m'aider cela serait apprécié.

Bonjour,
Je ne comprends pas la raison d'utiliser une procédure VBA alors que nativement le filtre d'excel permet de chercher les mots contenus dans une chaîne ou ceux qui commencent par, se termine par, etc.

[EDIT]
Une petite remarque sur cette procédure trouvée

• Elle utilise une vieille technique. Il faut utiliser des tableaux structurés
• On utilise une boucle alors que la méthode AutoFilter out AdvancedFilter suivant le type de filtre choisi serait une meilleure approche
• Le test n'est pas réfléchi car le seul cas où les lignes restent visibles c'est quand la cellule contenant la valeur à chercher est vide.

Manifestement le créateur de cette procédure ne l'a pas testée