XL 2016 recherche find

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite un bon dimanche 🙂

Je butte sur 2 problèmes (pour moi LOL);

J'ai un petit code de recherche find qui fonctionne sans souci.

J'aimerais si cela est possible qu'à la fermeture de la recherche, la valeur cherchée soit effacée et qu'un message m'indique quand la recherche est terminée.

Malgré mes essais et recherches sur forums et sur le net je n'ai pas trouvé "mon bonheur".
Auriez-vous la solution ?
petit fichier joint

Je vous remercie déjà pour m'avoir lu.
amicalement,
arthour973

 

[youky(BJ)]

Bonjour Arthour,
Voici une solution.
Bruno

code sur tout le fichier

Sub Rechercher()
nom = InputBox("A rechercher", "Recherche")
If nom = "" Then Exit Sub
For k = 1 To Sheets.Count
With Sheets(k).UsedRange
Set c = .Find(nom, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Sheets(k).Select
c.Activate
rep = MsgBox("Continuer la recherche ?", 4 + 32, "S?lection")
If rep = vbNo Then Exit Sub
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Next
MsgBox "Recherche terminée!"
End Sub

code pour 1 page

Sub Rechercher()
nom = InputBox("A rechercher", "Recherche")
If nom = "" Then Exit Sub
With Sheets(1).UsedRange
Set c = .Find(nom, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Activate
rep = MsgBox("Continuer la recherche ?", 4 + 32, "Sélection")
If rep = vbNo Then Exit Sub
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
MsgBox "Recherche terminée!"
End Sub

 

[job75]

Bonjour Lionel, Bruno, le forum,

Sub Rechercher()
Application.Dialogs(xlDialogFormulaFind).Show
With Cells.Find(""): End With
End Sub

A+

 

[Usine à gaz]

Bonjour youky(BJ),
Bonjour Gérard,

Merci pour m'avoir répondu.

Les 2 fonctionnent super, Merci 🙂
Bon dimanche
amicalement,
Lionel,