recherche sous excel 2000

[Jean]

Bonjour,

Je cherche une fonction ou un outil me permettant de rechercher un texte ou une expression dans toutes les feuilles d'un classeur sous Excel 2000.

Je sais que cette fonction a été mise dans Excel 2002 (XP) mais je n'ai pas envie d'acheter une nouvelle version, il doit bien y avoir un petit outil pour faire la même chose sous Excel 2000...

Merci

 

[m.lecxe]

je ne sais pas si j'ai déjà répondu a cette question


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

@+