Filtrer par recherche "texte" sur plusieur colonnes

Bonjour,

Voilà plusieurs jours que je me gratte la tête pour obtenir un résultat de recherche mais je n'y arrive pas.

J'ai créé un tableau feuille 1 reprenant plusieurs lignes de bus (colonnes F à K).

Je souhaiterai créer un filtre ou je pourrai indiquer Ex: "19" pour que toutes les lignes horizontales apparaissent lorsque la ligne bus 19 est inscrite dans l'une des colonnes.

Pourriez-vous me dire comment faire sachant que je suis débutant dans ce genre de procédé.

Vous en remerciant par avance

Pierspom

Bonjour,

fais un filtre avancé en reportant ta donnée en fac de chaque colonne en décalant chaque ligne comme ici

une fois construit, tu peux masquer les lignes et ne faire apparaître que le choix de la ligne

passe tes données en tableau ce sera mieux

Merci Steelson.

J'ai essayé mais je n'ai rien compris et pas réussi à reproduire ton exemple je n'y connais pas grand chose.

Question supplémentaire!

Si je mets 20, 21 ou autre dans la case B1 de ton modèle le filtrage se fait-il automatiquement?

Pierspom a écrit :

Si je mets 20, 21 ou autre dans la case B1 de ton modèle le filtrage se fait-il automatiquement?

je vais te le faire le macro (simple)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
    Range("A11").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("D3:I9"), Unique:=False
End Sub

Merci Steelson,

je regarde dès que possible

Bonjour,

Avec le filtre élaboré et formule.

Il suffit d'entrer la ligne dans une seule cellule( AL2 ) et cliquer sur le bouton Extrait.

On peut choisir les colonnes à afficher.

La formule en AJ2 est:

=NB.SI(BD!F2:K2;"*"&$AL$2&"*")>0

La macro est

Sub Extrait()
    Sheets("BD").Range("A1:AG1000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("AJ1:AJ2"), CopyToRange:=Range("A1:AG1"), Unique:= _
        False
End Sub

Boisgontier

Génial t'es un chef!!!

une dernière petite chose et je te laisse tranquille

Je vais devoir certainement ajouter des lignes de bus dans mon fichier.

Que dois-je modifier pour que celles-ci soient prises en compte?

Re je viens de me rendre compte que

La formule en AJ2

=NB.SI(BD!F2:K2;"*"&$AL$2&"*")>0

Met Faux et donc ne filtre pas

>Met Faux et donc ne filtre pas

Vous n'avez rien compris. Faux est pour la première ligne de la BD.

Vous pouvez tout à fait utiliser une méthode de débutant consternante.

Boisgontier

Désolé si je vous ai offensé mais ce n'était pas mon but.

Effectivement je suis novice et ne comprend pas forcément ce qui est logique pour vous.

Quand j'utilise le fichier que vous m'avez retourné si je tape 20 dans la case Ligne AL2 de la feuille extraction rien ne se passe.

C'est pour cela que je vous ai posé cette question.

Bien à vous et grand merci pour votre aide précieuse

Boisgontierjacques a écrit :

Pierspom a écrit :

Met Faux et donc ne filtre pas

Vous n'avez rien compris. Faux est pour la première ligne de la BD.

Vous pouvez tout à fait utiliser une méthode de débutant consternante.

Pierspom a écrit :

Quand j'utilise le fichier que vous m'avez retourné si je tape 20 dans la case Ligne AL2 de la feuille extraction rien ne se passe.

C'est pour cela que je vous ai posé cette question.

Je plussoie, dans le premier fichier qui reste posté le filtre ne fonctionne pas non plus pour moi, mais peut-être que j'ai tort également.

Par contre le second est beaucoup plus intéressant (plus simple que ma version, merci pour l'astuce, mais la formule est longue).

Il faudrait dans la formule ajouter un espace après le n° de ligne sinon, quand on tape 20 on a aussi la ligne 206 par exemple.

=OU(ESTNUM(CHERCHE($AL$2&" ";BD!F2));ESTNUM(CHERCHE($AL$2&" ";BD!G2));ESTNUM(CHERCHE($AL$2&" ";BD!H2));ESTNUM(CHERCHE($AL$2&" ";BD!I2));ESTNUM(CHERCHE($AL$2&" ";BD!J2));ESTNUM(CHERCHE($AL$2&" ";BD!K2)))

si je peux me permettre.

J'ai supprimé le bouton Extrait

Boisgontier

Oui mais le 20 donne aussi la ligne 206

d'où ma proposition de correction ci-dessus

Avec la formule =NB.SI(F2:H2;$AJ$4&" *")>0

Il faut saisir le no de ligne en AJ4 puis cliquer sur le bouton Extrait

Il serait possible de choisir aussi la commune dans une liste déroulante.

Boisgontier

Grand merci pour votre aide.

Je vous en suis très reconnaissant.

Je testerai le fichier demain au bureau.

Heureusement qu'il y a des personnes comme vous qui m'apportez le savoir que je n'ai pas 👏👏👏

Bonnes soirées à vous deux

Bien à vous

Pierspom

Bonjour Messieurs,

Juste pour vous remercier encore une fois pour votre travaille.

J'ai adapté le fichier avec les lignes supplémentaires comme précédemment évoqué.

Le résultat est parfait

Je vous joins le fichier pour que vous puissiez le contrôler.

Au plaisir

Pierspom

Bonjour,

Le fichier avec un menu déroulant pour choisir la ligne de bus.

Boisgontier

Parfait

Merci