Recherche de livres par mot clé dans un catalogue

[Benj]

Bonjour à tous!

j'ai plein de livres dans mon armoire chez moi, j'ai tapé leur référence ds un tableau excel avec leurs mots clés.
j'aimerais maintenant pouvoir taper un mot clé et que ça me ressorte les livres correspondant.

Y a t-il une macro toute préparée prévue pour ce genre de choses?
sinon quel fonction excel faut -il utiliser?
si qqun pouvait m'aider ça me rendrait un fier service, vraiment!
Merci !!
Benj

PS :merci Hervé

 

[bjh]

salut
essaie ceci
bien sur il faut que tu l'adapte a ta base de donnée
mais cela fonctionne

tiens moi au courant

Chercher un mot ou une valeur dans toutes les feuilles d'un classeur
Sub Chercher()
Dim i As Byte, j As Byte, X As Byte
Dim Cible As String
Dim Val As Object
Dim firstAddress As String, Resultat As String
Dim Tableau()
Cible = inputBox(" Saisir le mot à rechercher : ", "Recherche", "Le mot")
Application.screenUpdating = False
For i = 1 To Sheets.Count ' les feuilles à tester: adapter selon projet
Sheets(i).Activate
With Sheets(i).usedRange.Cells
Set Val = .Find(Cible, lookIn:=xlValues)
If Not Val Is Nothing Then
firstAddress = Val.Address
Do
Val.Select
X = X + 1
reDim Preserve Tableau(2, X)
Tableau(0, X - 1) = "Cellule " & Val.Address
Tableau(1, X - 1) = Sheets(i).Name
Set Val = .findNext(After:=activeCell)
Loop While Not Val Is Nothing And Val.Address <> firstAddress
End If
End With
Next i
Sheets(1).Activate
Application.screenUpdating = True
Resultat = "Resultat de la recherche sur le mot : " & Cible & Chr(10) & Chr(10)
If X = 0 Then
Resultat = Resultat & "Pas de resultat lors de la recherche"
Else
For j = 1 To X
Resultat = Resultat & Tableau(0, j - 1) & Chr(9) & Tableau(1, j - 1) & Chr(10)
Next j
End If
msgBox Resultat
End Sub

BYE BJH

 

[Benj]

je précise que je suis plutôt débutant en Excel et que j'avais l'habitude d'utiliser des formules directement ds les cases...
ou dois je insérer le programme que tu m'as mis jbh?

 

[Hervé]

BOnsoir

En pièce jointe une proposition par macro VBA, je te cherche une solution par formule, mais c'est pas gagné (vu mon niveau).

Salut
Hervé

 

[bjh]

envoie 1 exemple de ton fichier
que je t'explique