Function Recherche(xDate, yEnTete) As String
Dim i&, j&, nlig&, ncol
nlig = -1
For i = 1 To ListView1.ListItems.Count
If xDate = ListView1.ListItems(i).ListSubItems(1).Text Then
nlig = i
Exit For
End If
Next i
If nlig = -1 Then Exit Function
ncol = -1
For i = 1 To ListView1.ColumnHeaders.Count
If yEnTete = ListView1.ColumnHeaders.Item(i).Text Then
ncol = i
Exit For
End If
Next i
If ncol = -1 Then Exit Function
Recherche = ListView1.ListItems(nlig).ListSubItems(ncol - 1).Text
End Function