Adapter un code

bonjour ,

je n'arrive pas à adapter le code suivant à une page que je nommerai "recherche" et dont les resultats seraient données

à partir de la cellule N29 sur cette meme page , il s'agit en fait d'un moteur de recherche sur excel

voici le code en deux partie

partie feuille (recherche) :

Private Sub CommandButton1_Click()

reponse = InputBox("mot a chercher")

Range("A9:A" & Range("A65536").End(xlUp).Row).ClearContents

Call recherche(reponse)

End Sub

et la partie 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, 1).Select

Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _

ws.Name & "!" & c.Address, TextToDisplay:=c.Value

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 ce fichier")

fin:

End Sub

Si vous pouviez m'indiquez les modifications à effectuer , j'ai associé un bouton à ce module mais je n'obtient aucun resultat dans la cellule souhaitée

Merci pour vos interventions

Cordialement

Bonsoir,

Tout dans la même macro

Sub recherche()
    mot = InputBox("mot a chercher ?")
    If mot = "" Then Exit Sub

    Range("A9:A" & Range("A65536").End(xlUp).Row).ClearContents
        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
                        Cells(ligne, 1).Hyperlinks.Add Anchor:=Cells(ligne, 1), Address:="", SubAddress:= _
                        ws.Name & "!" & c.Address, TextToDisplay:=c.Value
                        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 ce fichier")
End Sub

Amicalement

Claude

Merci pour votre réponse , pour cloturer une toute petite question : Quelle modification peut on apporter à cette macro

pour lui permettre de rechercher des valeurs chiffrées , ce moteur ne détectant que les mots ?

Merci

re,

remplace cette ligne

au pif, j'ai ajouté l'apostrophe devant c.Value

                    Do
                        Cells(ligne, 1).Hyperlinks.Add Anchor:=Cells(ligne, 1), Address:="", SubAddress:= _
                        ws.Name & "!" & c.Address, TextToDisplay:="'" & c.Value

Claude

Merci à toi c'est bien aimable , bonne soirée

re,

Prends quand même la bonne habitude de déclarer les variables,

ici,

Option Explicit

Sub recherche()
Dim Mot$, ligne%
Dim ws As Worksheet
Dim c As Range, trouve As Boolean
Dim firstAddress$

a+--- Claude

bonjour

pour essayer de ne pas trop eparpiller de question relatives au meme sujet ;

Une question rapide , peut on modifier ce code pour lui demander d'elargir une requete de recherche en dehors du classeur c'est à dire

chercher aussi des fichiers xls n'importe ou sur mon pc?

merci