Saisir une date et avoir la valeur de la cellule correspond

Bonjour, désolé pour le titre je ne savais pas comment exposé mon souçi.

voila grâce a votre aide j'ai pu réaliser une partie de ce que je voulais (recherche et affichage d'une valeur max).

je voudrais savoir est ce que c'est possible d'afficher une valeur après avoir saisie la date dans une ''inputbox''.

merci bcp !

Bonjour,

Voici une possibilité :

Sub test()
Dim i, PL
a = InputBox(Space(15) & "Saisir une date sous la forme" & Chr(13) & Space(30) & "JJ/MM/AAAA")
On Error Resume Next
Set PL = Sheets("test").Range("A2:B368")
For i = 1 To PL.Rows.Count
If PL(i, 1) = CDate(a) Then Exit For
Next
MsgBox PL(i, 2)
End Sub

A+

Merci bcp sa marche a merveil !