moteur de recherche pour exel

[creolia]

Bonjour comment puis je créer un moteur de recherche pour un classeur exel.


je m'explique je dois faire un tableau pour gérer les clés je voudrais pouvoir chercher avec plusieurs option comme le numéro série numéro de clés par localisation etc un peut comme un formulaire de recherche existe il une solution style macro ou autre merci pour votre aide.

 

[Ubot303]

Re : moteur de recherche pour exel

Bonjour à toi 🙂

C'est surement réalisable en macro VB.
Néanmoins, la fonction "Edition -> Rechercher" d'Excel marche parfaitement 😀
Alors je te propose d'utiliser la solution la plus simple...

Cordialement

 

[biloute91]

Re : moteur de recherche pour exel

Bonjour,

un petit fichier à joindre peut-être..

 

[creolia]

Re : moteur de recherche pour exel

Merci pour vos réponse j ais essayer ctrl + F sa marche pas trop mal sauf lol je voudrais que se soit plus comment dire pro lol comment éventuellement s.v.p mettre la fonction recherche sur un bouton et si une bonne âme a un petit exemple de macro ou un indice merci je suis preneur je voudrais bien vous donnez un exemple mais je suis a la maison et mon travail est au bureau merci.

 

[biloute91]

Re : moteur de recherche pour exel

Re,

un exemple avec un formulaire,certainement à adapter

 

[stevevda]

Re : moteur de recherche pour exel

J'avais déjà posé la même question...
Essaie ceci pour voir si cela te peu te servir crée une makro et colle ceci...

Sub Recherche()
texte_a_rechercher = InputBox("Texte à rechercher", "Recherche")
If texte_a_rechercher = "" Then Exit Sub
For Each feuille In Worksheets
With feuille.Cells
Set C = .Find(texte_a_rechercher, LookIn:=xlValues)
If Not C Is Nothing Then
firstAddress = C.Address
Do
C.Interior.ColorIndex = 4
Application.GoTo Reference:=Worksheets(feuille.Name).Range(C.Address), Scroll:=True
If MsgBox("Recherche du suivant", vbOKCancel, "Recherche") = vbCancel Then Exit Sub
C.Interior.ColorIndex = xlNone
Set C = .FindNext(C)
Adresse_encours = C.Address
Loop While Adresse_encours <> firstAddress
End If
End With
Next
End Sub

Bien à toi...