Créer une case ""Rechercher"" dans une page

Bonjour,

J'utilise excel familles petites entreprises 2013.

Dans une page d'Excel j'ai créer une liste de mes livres avec des colonnes :

Titres, Auteurs, Séries, Classement.

Dans une page je voudrais créer une cellule à partir de la quelle je pourrais effectuer des recherches dans cette page pour retrouver de mots situés dans celle-ci.

Ceci me permettra de retrouver ce que je recherche dans dans cette page.

Pouvez vous me conseiller.

D'avance je vous remercie.

Cordialement.

Jean

PS : Avant de poser ma question, j'ai regardé dans le forum (peut-être mal..) mais je n'ai pas trouver si ce sujet a déjà été traité.

Ma bibliothèque :

Bonjour,

Pas besoin de formule ou de VBA, un Filtre Automatique est parfaitement adaptée à cette problématique.

Par contre quelle que soit la solution adaptée, un tableau Excel ne doit jamais contenir des lignes complètement vides.

Salut Roussiau,

adaptation vitesse VV' d'un annuaire fait il y a quelques semaines pour apt.

La recherche se fait toutes colonnes depuis la TextBox en feuille 'REC' où tu tapes ton info en minuscule.

Il y a également un module ajout et correction intégré qui te permet de modifier ou d'ajouter une entrée à ta BDD.

J'ai supprimé les lignes vides : très mauvais, ça!

En 'BDD', un double-clic sur un en-tête trie l'ensemble depuis ce critère.

Vois si cela peut te convenir et indique-moi alors ce que tu souhaites exactement à propos de tes autres feuilles.

A+

Bonjour et bienvenue sur le forum

Bonjour à tous.

Une variante.

Bye !

Bonjour,

Recherche avec Filtre élaboré et ComboBox intuitif sur la liste des mot-clés trouvés..

Boisgontier

Bonjour,

Merci à tous pour vos réponses.

J'ai retenu la suggestion de gmb.

Cordialement.

Jean.

Bonjour.

Ce sujet est '' Résolu'''

Merci.

Jean.

Bonjour,

Recherche avec plusieurs mots-clés (ville troyes champagne ) par exemple

Dim Choix()
Private Sub ComboBox1_GotFocus()
  Set f = Sheets("bd")
  Tblbd = [tableau1].Value
  ReDim Choix(1 To UBound(Tblbd))
  For i = LBound(Tblbd) To UBound(Tblbd)
     Nbcol = [tableau1].Columns.Count
     For k = 1 To Nbcol: Choix(i) = Choix(i) & Tblbd(i, k) & Chr(157): Next k
  Next i
  Me.ComboBox1.List = Choix
End Sub

Private Sub ComboBox1_Change()
  If Me.ComboBox1 <> "" And Me.ComboBox1.ListIndex = -1 Then
     mots = Split(Me.ComboBox1, " ")
     Tbl = Choix
     For i = LBound(mots) To UBound(mots)
       Tbl = Filter(Tbl, mots(i), True, vbTextCompare)
     Next i
     Me.ComboBox1.List = Tbl
     Me.ComboBox1.DropDown
     n = Me.ComboBox1.ListCount
     If n > 0 Then
       ReDim Tbl2(1 To n, 1 To 4)
       For j = LBound(Tbl) To UBound(Tbl)
         a = Split(Tbl(j), Chr(157))
         For k = 0 To 3: Tbl2(j + 1, k + 1) = a(k): Next k
       Next j
       [A6:D1000].ClearContents
       [A6].Resize(n, 4) = Tbl2
      Else
       [A6:D1000].ClearContents
      End If
    Else
      Me.ComboBox1.List = Choix
    End If
End Sub

Boisgontier