VBA - Recherche dichotomique d'une valeur dans une table à 1 dimension triée en valeurs croissantes

VB:

'---------------------------------------------------
'Recherche dichotomique dans un table à 1 dimensions
'triée sur ses valeurs croissantes
'
'Argument t:  Table à 1 dimension triée croissant
'Argument x:  Valeur recherchée
'
'Return: Indice de la 1ère des valeurs de x en t()
'        xlNone (-4142) si aucune valeur de x en t()
'---------------------------------------------------
Function RechercheDichotomique(t As Variant, x As Variant) As Long
    Dim iDeb As Long
    Dim iFin As...

Cliquez pour agrandir...