Raccourci recherche

Bonsoir,

Je cherche un macro pour lancer le moteur de recherche, j’ai trouvé ce Code mais il lance la fonction recherche est remplacé.

Sub Recherche()

Application.Dialogs(xlDialogFormulaFind).Show

End Sub

je souhaite seulement utiliser la fonction recherche

Bonjour,

Ci-dessous le résultat de la procédure.

Est-ce le résultat escompté ?

Cdlt.

Slt,

Sub Recherche()
    Application.SendKeys ("^f")
End Sub

Bonne soirée

Bonjour à tous,

@Ronibo

voici un exemple,

Sub Recherche()
Dim keywords As String, c As Range, n As Integer
keywords = "x"    'adapter
With Range("A1:A500")  'adapter
    Set c = .Find(keywords, LookIn:=xlValues, LookAt:=xlPart)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            n = Application.Find(keywords, c.Value)
            With c.Characters(Start:=n, Length:=Len(keywords))
              .Font.Color = RGB(255, 0, 0)
            End With

            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub

Rebond soir, merci à tous pour votre aide grâce à vous j’ai pu résoudre mon problème