Discussion :

[VBBougrine]

Bonjour,
Je souhaite faire une recherche sur une base de données afin de déterminer la bibliographie des auteurs, comme par exemple
Machin Albert
Tartanpion Bernard
Machin Chouette Jean-Philippe
Gaston Monique
Pour ne pas faire une recherche auteur par auteur(j'en ai parfois des centaines à faire) il est possible d'interroger la base de données en mettant tous les auteurs sur une seule équation de recherche comme ainsi:
Machin A* OR Tartanpion B* OR Machin Chouette J* OR Gaston M*
J'utilise Excel 2007 et je n'arrive pas à trouver la fonction (ou les fonctions) qui me permettra de réaliser l'équation de recherche ci-dessus de manière automatique.
On peut supposer que les auteurs sont dans les cellules A1 à A4 et que l'équation de recherche est dans la cellule B1 (résultat de la fusion des cellules A1 à A4. Les "OR" et les "*" sont très importants).
Quelqu'un pourra m'aider, svp.
Un tout grand merci d'avance pour votre aide.

[mercatog]

Un exemple avec filtre automatique
de A1 à A4 les données de type Machin A* (l'étoile est obligatoire)
les données à partir de A7

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
Dim LastLig As Long
Dim Tblo
 
With Sheets("Feuil1")
   .AutoFilterMode = False
   LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
   Tblo = Application.Transpose(.Range("A1:A4").Value)
   .Range("A7:A" & LastLig).AutoFilter field:=1, Criteria1:=Tblo, Operator:=xlFilterValues
End With
End Sub

[VBBougrine]

Merci pour votre réponse et pour votre code.
Malheureusement quand j'exécute le code je n'obtiens pas le résultat souhaité.
J'ai joins un fichier Excel pour bien expliquer mon problème.
La feuil1 contient le résultat d'exécution de votre code.
La feuil2 contient ce que je souhaite obtenir automatiquement, voir cellule B1.
Merci pour votre aide.

NB: le mot "OR" dans la cellule B1 est un opérateur booléen

[Philippe Tulliez]

Bonjour,
C'est un cas typique pour les filtres élaborés.
Tu insères des lignes devant ta base de données.
Ensuite tu fais un copier/Coller des champs que tu veux filtrer.

Les OR les uns en dessous des autres les ET sur la même lignes
Ensuite utiliser le filtre élaboré.

[VBBougrine]

Merci beaucoup
J'utiliserai le filtre élaboré
Bonne journée