Bonsoir à tous,
Il y a plusieurs façons de faire, en voici une
la formule en F3 est mise à jour à chaque clic du bouton
Sub Cherche()
Dim Lg&, x%, y%
Lg = Range("a" & Rows.Count).End(xlUp).Row
On Error Resume Next
x = Application.Match(Range("f1"), Range("a:a"), 0) 'ligne date Aujourdhui
On Error GoTo 0
If x > 0 Then
Range("f3") = "=MIN(p" & x & ":p" & Lg & ")" 'mise à jour formule en "F3"
y = Application.Match(Range("f3"), Range("p:p"), 0) 'ligne du mini
Application.Goto Range("a" & y), Scroll:=True
Range("p" & y).Activate
Else
MsgBox ("Cette date n'existe pas !")
End If
End Sub
Amicalement
Claude