M
Mytå
Guest
Salut le Forum
Juste un bout de code qui pourrait être utile à d'autres
Mytå
Juste un bout de code qui pourrait être utile à d'autres
Code:
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å