Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

moteur de recherche pour exel

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

creolia

XLDnaute Impliqué
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.
 
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
 
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.
 
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...
 
- 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
17
Affichages
413
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…