Bonjour,
une solution avec une fonction personnalisée à mettre dans un module VBA standard
Function prixdateduree(plage, dated, duree)
Set re = plage.Find(duree, lookat:=xlWhole)
If Not re Is Nothing Then
fa = re.Address
Do
If re.Offset(-1) = dated Then
prixdateduree = re.Offset(1)
Exit Function
Else
Set re = plage.FindNext(re)
End If
Loop Until re.Address = fa
End If
prixdateduree = CVErr(xlErrNA)
End Function
appel de la fonction à partir d'excel
par exemple à mettre en D1
si la date est un type date
=prixdateduree(A:A,DATEVALUE("09/12/2018"),"14J/12N")
si la date est un type texte
=prixdateduree(A:A,"Dim 09 Déc 2018","14J/12N")