Option Explicit
Function SearchPrice(A$, D As Date) As Currency
Dim dlg&, lig&
With Worksheets("Feuil2")
dlg = .Cells(Rows.Count, 1).End(3).Row
For lig = 2 To 13
With .Cells(lig, 1)
If .Value = A Then
If .Offset(, 1) = D Then
SearchPrice = .Offset(, 2): Exit Function
End If
End If
End With
Next lig
End With
End Function
Soan, je crois comprendre que ce n'est pas du "live" car des données historiques et non en temps réel, mais qu'il faut bien allez les chercher sur le web....@danbibi
j'comprends plus c'que tu veux !
Regarde la pièce jointe 1082352
alors, c'est en live ou pas ?
soan