bonsoir Mathieu
j'espere que cette macro pourra t'aider
Private Sub BoutonOK_Click()
Dim Cell As Range
Dim Valeur As Date
Dim FirstAddress As String
Dim Feuille As Variant
dialogue1.Hide
Valeur = Sheets("Sommaire").Range("D9").Value
If Valeur = 0 Then Exit Sub
For Each Feuille In Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12")
With Sheets(Feuille).UsedRange.Cells
Set Cell = .Find(Valeur, LookIn:=xlValues)
If Not Cell Is Nothing Then
FirstAddress = Cell.Address
Do
Sheets(Feuille).Activate
Cell.Select
MsgBox "Date trouvée!"
If MsgBox(" Continuer la recherche", 4, "Message") = vbNo Then Exit Sub
Set Cell = .FindNext(After:=ActiveCell)
Loop While Not Cell Is Nothing And Cell.Address <> FirstAddress
End If
End With
Next Feuille
If FirstAddress = "" Then MsgBox " La donnée " & Valeur & " n'a pas été trouvée dans le classeur . ", , "Message"
End Sub
bonne soiree
MichelXld