Voici un code pour effectuer une recherche sur plusieurs feuilles
Sub recherche7()
texte_a_rechercher = InputBox("Texte à rechercher", "Recherche")
If texte_a_rechercher = "" Then Exit Sub
For Each feuille In Worksheets
feuille.Select
With feuille.Cells
Set C = .Find(texte_a_rechercher, LookIn:=xlValues)
If Not C Is Nothing Then
firstAddress = C.Address
Do
C.Select
rep = MsgBox("Recherche du suivant", vbYesNo, "Recherche")
If rep = vbNo Then Exit Sub
Set C = .FindNext(C)
If C Is Nothing Then
Adresse_encours = 0
Else
Adresse_encours = C.Address
End If
Loop While Not (C Is Nothing) And (Adresse_encours <> firstAddress)
End If
End With
Next
MsgBox "Texte non trouvé ou recherche terminée ou essayez une autre orthographe", vbInformation, "Recherche" 'Message si rien n'ai trouvé
End Sub
Cordialement
ROBERT René
http://membres.lycos.fr/utilsfr