Macro de recherche multipages (Exemple)

[Mytå]

Salut le Forum

Juste un bout de code qui pourrait être utile à d'autres

Option Explicit
 
Sub Trouve()
 
Dim Feuille As Object
Dim MaFeuille As String
Dim Cherche
 
MaFeuille = ActiveSheet.Name
 
For Each Feuille In Worksheets
 
If Feuille.Name <> MaFeuille Then
    With Feuille
        .Select
        Set Cherche = Range("A1:IV65536").Find(Sheets(MaFeuille).Range("E2"), LookIn:=xlValues)
        If Cherche Is Nothing Then
            GoTo ExistePas
        Else
            Cherche.Select
            Exit Sub
        End If
    End With
End If
 
ExistePas: Next Feuille
Sheets(MaFeuille).Select
MsgBox ("Echec de la recherche")
 
End Sub

Mytå