' ----------------------------------------------------------------------------
' FONTION Date_Site(xDate As Date, xSite, xPlageref As Range)
' xDate est la date à rechercher (en général une cellule en référence absolue)
' xSite est le site à trouver
' xsite est la plage de recherche (en général une plage en référence absolue)
' 1ère colonne de la plage : les dates
' 4ème colonne de la plage : les sites
' 7ème colonne de la plage : les valeurs à retourner
' ----------------------------------------------------------------------------
Function Date_Site(xDate As Date, xSite, xPlageref As Range)
Dim T, i&
Date_Site = "": T = xPlageref.Value2
For i = 1 To UBound(T)
If T(i, 4) = xSite Then
If T(i, 1) = xDate Then
Date_Site = T(i, 7)
Exit Function
End If
End If
Next i
End Function