Bouton pour chercher

Bonjour,

j'aimerai faire un code qui lorsque je clique sur une image (type une loupe):

• il me cherche le texte en A3 sur la range A5:A10000
• et à chaque clic il m'affiche le texte suivant trouvé

Un peu comme sur les navigateurs internet. à chaque fin de recherche il retourne au début du document.

Je vous remercie, je dois travailler et rendre ce projet rapidement , et je suis vraiment désemparé!

Bonjour

Voir si cela convient

Code Module

Sub Cherche()
    Cells.Find(What:="*" & Range("A3") & "*", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
End Sub

Cordialement

SUBLIME, MERCI BEAUCOUP!!!!!!!!!

et pour chercher QUE SUR UNE COLONNE:

Range("A4:A1048576").Find(What:="*" & Range("A2") & "*", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate

ne pas oublier

Range("A4:A1048576")