Rechercher dans une feuille Excel

Bonjour,

Une petite question pour vous,

J'ai ce code qui me permet de rechercher un mot écrit dans le TextBox1 dans ma feuille excel quand on clic sur un bouton.

Pour le moment si il y a plusieurs mots dans la feuille le code passe au mot suivant lorsqu'on appuie à nouveau sur le bouton.

Est-t-il possible de passer au mot suivant en appuyant sur la flèche du clavier par exemple ?

Option Explicit

Sub recherche()

    Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    Cells.FindNext(After:=ActiveCell).Activate

End Sub

(J'ai obtenu ce code grâce à l'enregistreur de macro)

Merci

Bonjour,

en ajoutant un MsgBox, tu peux utiliser la touche "Enter" pour passer au suivant

à tester,

Sub recherche()
Dim keywords As String, c As Range
keywords = ActiveSheet.TextBox1
  With ActiveSheet.Cells
    Set c = .Find(keywords, LookIn:=xlValues, LookAt:=xlPart)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            MsgBox "Trouver en cellule:  " & c.Address(0, 0)
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
 End With
End Sub