moteur recherche sur 1 seul feuille

[nicom]

Bonsoir

J'ai copier le code vba de JeanPierre qui me serre tres bien.

Que voici

Sub recherche(mot)
On Error GoTo fin
ligne = 1
For Each ws In Sheets
If ws.Name <> "trouver" Then
With ws.Cells
Set c = .Find(mot, LookIn:=xlValues, lookat:=xlPart)

If Not c Is Nothing Then
firstAddress = c.Address
Do
Sheets("trouver").Cells(ligne, 5).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

Mais
il faudrait le modifier de façon qu'il fasse la recherche que sur une seul feuille appeler "liste".(et pas sur tout le fichier).

Merci de votre aide.

Nico

 

[Efgé]

Re : moteur recherche sur 1 seul feuille

Bonjour nicom et bienvenu sur le forum,
Deux propositions:
1 - Utilise les balises Code pour mettre un code dans ton post (Bouton # dans le mode avancé de réponse)
2 -

Sub recherche(mot)
Dim C As Range, ligne As Long, ws As Worksheet
Dim trouve As Boolean, firstAddress As String
On Error GoTo fin
ligne = 1
Set ws = Sheets("liste")
With ws.Cells
    Set C = .Find(mot, LookIn:=xlValues, lookat:=xlPart)
    If Not C Is Nothing Then
        firstAddress = C.Address
        Do
            Sheets("trouver").Cells(ligne, 5).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
If Not trouve Then MsgBox ("Pas de " & mot & " trouvé dans ce fichier")
fin:
End Sub

Cordialement

 

[nicom]

Re : moteur recherche sur 1 seul feuille

Merci de votre rapidité

je ne voie pas la 2eme propositions. Mais se n'ai pas grave cela fonctionne très bien.

Cordialement
Merci encore.