Macro de recherche

[KAR_inette]

Bonjour à tous ....
Je recherche une macro utilisable pour excel 97.
J'aimerais pouvoir effectuer une recherche par le biais d'une macro (identique à CTRL + F), mais qui prendrais en compte tout le classeur ...
Actuellement, ma recherche se limite à la feuille sellectionnée ...
Si quelqu'un peut m'aider ....
Merci

 

[m.lecxe]

Je pense que c'est ce que tu cherches
tu peux lui affecter un raccoucis clavier

Sub RechercheMot()
'mpfe, auteur inconnu
mot = InputBox("Mot à rechercher ?")
For Feuille = 1 To Sheets.Count
On Error Resume Next
Sheets(Feuille).Select
On Error GoTo 0
Set trouvé1 = Cells.Find(what:=mot)
If Not trouvé1 Is Nothing Then
trouvé1.Activate
étiq:
If MsgBox("Cellule " & ActiveCell.Address & vbLf & vbLf & _
LTrim(ActiveCell) & vbLf & vbLf & "Suivant ?", 4) = vbNo Then Exit Sub
Set trouvé2 = Cells.FindNext(After:=ActiveCell)
If trouvé2.Column <> trouvé1.Column Or trouvé2.Row <> trouvé1.Row Then
trouvé2.Activate
GoTo étiq
End If
End If
Next Feuille
End Sub

@+

 

[KAR_inette]

C'est exactement ça !!!
Merci bien ...