Recherche de livres par mot clé dans un catalogue

  • Initiateur de la discussion Initiateur de la discussion Benj
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

B

Benj

Guest
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é
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

S
Réponses
3
Affichages
911
T
Retour