Recherche de livres par mot clé dans un catalogue

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

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?

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é

envoie 1 exemple de ton fichier
que je t'explique