Moteur de recherche Excel

  • Initiateur de la discussion Initiateur de la discussion jeuno
  • 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 !

jeuno

XLDnaute Nouveau
Bonjour à tous,
J'aimerai créer un moteur de recherche pas compliqué sur une feuille excel.
Sachant que les infos à chercher sont sur une autre feuille.

J'ai 4 sujets différents sont sur 4 colonnes. Exemple :

Qualité - La terre - L'eau - L'air

douce - Y - z - a
sale - c - d - e
Etc..
(les petits traits symbolisant les colonnes que j'arrive pas à faire sur la page)

J'aimerai que quand je tape "douce" par exemple j'ai la ligne avec les 4 indications:

Douce - y - z - a

Voila merci d'avance.
 
Dernière édition:
Re : Moteur de recherche Excel

salut,

Merci pour ton aide.
Voici une copie de ce que j'ai essayé de faire.
Tu verras quand je tape un nom comme "pioche", je n'arrive pas à avec les autres infos sur la ligne.
Je ne sais pas quoi rajouter dans la macro...!

Merci
 
Re : Moteur de recherche Excel

Bonjour à tous,

Dans le ThisWorkBook :
Private Sub CommandButton1_Click()
reponse = InputBox("Taper le Nom du matériel")
Range("B9:E" & Range("C65536").End(xlUp).Row).ClearContents
Call recherche(reponse)
End Sub
Dans le module :

Sub recherche(mot)
On Error GoTo fin
ligne = 9
For Each ws In Sheets
If ws.Name <> "Recherche" Then
With ws.Cells
Set c = .Find(mot, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Sheets("Recherche").Cells(ligne, 3).Select
Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
ws.Name & "!" & c.Address, TextToDisplay:=c.Value
Sheets("Recherche").Cells(ligne, 4) = c.Offset(, 1)
Sheets("Recherche").Cells(ligne, 5) = c.Offset(, 2)
Sheets("Recherche").Cells(ligne, 2) = c.Offset(, -1)
ligne = ligne + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
trouve = True
End If
End With
End If
Next ws
If Not trouve Then MsgBox ("Pas de " & mot & " trouvé dans la liste")
fin:
End Sub
A+ à tous
 
Dernière édition:
Re : Moteur de recherche Excel

Tu es un génie ...!
Bravo ça marche au top.

Par contre si je veux inverser et chercher le N° (en partant logiquement de la gauche) par exemple "A" et avoir les 3 autres renseignements à coté ?

J'oublié, comment lever ce lien Hypertexte dans la réponse.

Merci et merci encore.
 
Re : Moteur de recherche Excel

Bonjour à tous,

Tes "numéros" ne semblent pas être en doublon.
Je ne connais pas la finalité du fichier mais si les "numéros" sont uniques je ne vois l'intérêt de les lister.

A+ à tous
 
Re : Moteur de recherche Excel

Salut JCGL,

C'est pour gérer des livres de classe que j'ai à la maison.
C'est pour ça j'ai pensé que les appeler par leur titres c'était mieux après coup, surtout par leurs titres. (au début je voulais les mettre par genres)
Voila si tu peux regarder sinon je ferai avec.
En tout cas c'était sympa.
A++
 
- 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

Discussions similaires

Réponses
5
Affichages
552
Réponses
3
Affichages
410
Réponses
4
Affichages
697
  • Question Question
Microsoft 365 Macro de recherche
Réponses
20
Affichages
2 K
Retour