creer une boite de recherche

Bonjour

C'est quoi ce fichier avec du japonais ou coréen dedans ?

Le principe de la vidéo de filtre via une boucle est ce qu'il y a de plus lent. C'est la plus mauvaise méthode... Il faut plutôt utiliser les filtres avancés https://philippetulliez.developpez.c...dvancedfilter/

Aujourdhui on fait cela très facilement avec PowerQuery et quelques lignes de VBA pour un filtre avancé

Mais PowerQuery se base sur les titres des colonnes alors vu ton classeur il te faudra adapter...

Base sous forme de tableau structuré nommé Recettes
Tableau structuré nommé Choix avec une colonne permettant de rentrer 1 ou n ingrédients
1 requête PowerQuery pour croiser Choix et Base : les N° des lignes correspondantes sont récupérées dans un tableau structuré Recettes_2
Le VBA réagit au changement de valeur dans Choix et utilise Recettes_2 comme critères d'un filtre avancé

Requêtes
Choix

Code:

1
2
3
4
5
6
let
    Source = Excel.CurrentWorkbook(){[Name="Choix"]}[Content],
    #"Lignes filtrées" = Table.SelectRows(Source, each [Ingrédients] <> null and [Ingrédients] <> ""),
    #"Type modifié" = Table.TransformColumnTypes(#"Lignes filtrées",{{"Ingrédients", type text}})
in
    #"Type modifié"

Recettes

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
let
    Source = Excel.CurrentWorkbook(){[Name="Recettes"]}[Content],
    #"Autres colonnes supprimées" = Table.SelectColumns(Source,{"№", "cette colonne", "celle ci aussi"}),
    #"Supprimer le tableau croisé dynamique des autres colonnes" = Table.UnpivotOtherColumns(#"Autres colonnes supprimées", {"№"}, "Attribut", "Valeur"),
    #"Type modifié" = Table.TransformColumnTypes(#"Supprimer le tableau croisé dynamique des autres colonnes",{{"Valeur", type text}}),
    #"Colonnes supprimées" = Table.RemoveColumns(#"Type modifié",{"Attribut"}),
    #"Personnalisée ajoutée" = Table.AddColumn(#"Colonnes supprimées", "Personnalisé", each Choix),
    #"Personnalisé développé" = Table.ExpandTableColumn(#"Personnalisée ajoutée", "Personnalisé", {"Ingrédients"}, {"Ingrédients"}),
    #"Personnalisée ajoutée1" = Table.AddColumn(#"Personnalisé développé", "Filtre", each if Text.Contains(Text.Lower([Valeur]),Text.Lower([Ingrédients])) then 1 else null),
    #"Lignes filtrées" = Table.SelectRows(#"Personnalisée ajoutée1", each ([Filtre] = 1)),
    #"Autres colonnes supprimées1" = Table.SelectColumns(#"Lignes filtrées",{"№"}),
    #"Doublons supprimés" = Table.Distinct(#"Autres colonnes supprimées1")
in
    #"Doublons supprimés"

VBA

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [Choix]) Is Nothing Then Exit Sub
 
    Application.CutCopyMode = False
    Application.ScreenUpdating = False
     With [Recettes].ListObject
        If .Parent.FilterMode = True Then .Parent.ShowAllData
        [Recettes_2].ListObject.QueryTable.Refresh
        .Range.AdvancedFilter Action:=xlFilterInPlace, _
        CriteriaRange:=[Recettes_2].ListObject.Range, Unique:=False
    End With
End Sub