Filtre automatique dans une cellule

Bonjour à tous,

J'ai une feuille de calcul simple qui consiste en une liste de films de la vidéothèque municipale.

Colonne A : Titre du film

Colonne B : Réalisateur

Colonne C : Principaux acteurs

Colonne D : Année de sortie

Colonne E : Référence

La ligne 1 est "figée" (toujours visible) avec le titre de la colonne (Titre, réalisateur...)

Cette feuille contient maintenant plusieurs milliers de lignes et, pour filtrer les films contenant

un certain mot, j'utilise le filtre automatique : la petite flèche grisée sous la case A1

> (personnalisé...) > titre contient...

Serait-il possible de remplacer cette méthode par une formule ?

Je m'explique.

• Insérer une nouvelle ligne en "Ligne 1" qui serait "figée" avec la ligne de mes titres de colonnes
• une "formule magique" en A1L1 qui ferait que, quand je rentre un mot (partie de mot) en case B1L1

Je ne sais pas si je suis très clair...

En simplifié, ne pas avoir à passer par la petite flèche mais entrer directement dans une case le mot recherché pour filtrer les lignes contenant l'occurrence de ce mot.

Merci par avance de tous vos conseils.

Caespitum

Bonjour et bienvenue,

Vois si tu peux adapter ou t'en inspirer

Amicalement

Claude

Formidable !!!

Encore mieux que ce que j'espérais. Tu es mon héros

Merci infiniment.

C.

re,

Si tu coince pour adapter, envoie ta base de données (raccourcie)

Amicalement

Claude

sinon :

Bonjour,

Je reviens vers toi pour un petit truc qui me chagrine

Dans ton modèle, est-il possible de supprimer la fonction "écriture"

qui me perturbe dans les saisies/recherches ?

En fait, être toujours en mode écriture en gardant cette précieuse case de recherche en B6,

et ne pas faire que toute les lignes disparaissent quand on clique sur un des titres.

(N''avoir que les titres contenant le mot après la recherche, et utiliser le bouton "afficher tout"

pour revenir en liste complète)

Possible ?

Merci par avance

Bonsoir,

Dans le VBE de la feuille "Films"

supprime la 2ème partie

'------------- partie à supprimer ---------
'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    '--- remonte la cellule sélectionnée dans la base (colonnes B:C)sur la ligne Critère
'If Flag Then Exit Sub
'    If Not Application.Intersect(Target, Range("Tablo")) Is Nothing Then
'        If Target.Count > 1 Then Exit Sub
'        Application.ScreenUpdating = False

'        Cells(8, Target.Column) = Target
'        Cells(8, Target.Column).Select
'    End If
'End Sub

comme ici, tu mets une apostrophe devant la ligne (au cas ou tu voudrais la réactiver)

Amicalement

Claude

Bravo !!!

C'est parfait pour moi à présent.

Encore un grand MERCI pour le temps passé à mon écoute.

Amicalement

C.

pardon j'adore le doc mais j'arrive pas à reproduire pour mon fichier tu n'as pas de tuto ?