re lire tableau a l'envers

Function RechercheStefie(Cellule_a_chercher As Range, Plage_Recherche As Range) As String

Application.Volatile True

Dim c As Range
Dim MonNombre As Double
Dim MaDifference As Double
Dim MonChiffre As Double
Dim monadresse As String

MonNombre = Cellule_a_chercher.Value

'pour chaque cellule de la plage de recherche
For Each c In Plage_Recherche
'si la valeur de la cellule est inférieur à MonNombre alors ...
If c > MonNombre Then
'si la valeur de la cellule - monnombre......
If (c - MonNombre) < MaDifference Or MaDifference = 0 Then
'la variable Madifference= la valeur de la cellule - monnombre
MaDifference = c - MonNombre
'monadresse = l'adresse de la cellule au format A1 (0,0)
monadresse = c.Address(0, 0)
'monchiffre= la valeur de la cellule
MonChiffre = c
'fin de condition
End If
'pareil
End If
'prochaine cellule
Next

'si monadresse est vide alors
If monadresse = '' Then
'on renvoi ce message
RechercheStefie = 'Il n'y a aucun entier supérieur'
'sinon
Else
'on renvoi celui-ci
RechercheStefie = 'Nombre : ' & MonChiffre & '. à l'adresse : ' & monadresse
End If
End Function

Cliquez pour agrandir...