Recherche vba valeur la plus proche

[carlos]

Bonsoir


Je recherche dans un tableau , la valeur la plus proche.


Voir Piece jointe


Merci


Carlos

 

[suistrop]

Re : Recherche vba valeur la plus proche

hello,

1 exemple

Function NomogrammeDemi(cell As Range)
Dim min As Double, note As Double, valeur_cherche As Double, i As Integer, diff As Double
min = Abs(Sheets("Baremes").cells(4, 2) - cell)
For i = 4 To 44
diff = Abs(Sheets("Baremes").cells(i, 2) - cell)
    If min > diff Then
    min = diff
    note = Sheets("Baremes").cells(i, 3)
    End If
Next i
NomogrammeDemi = note
End Function

 

[carlos]

Re : Recherche vba valeur la plus proche

Bonjour suistrop , le forum


Bien joué et très intéressant la maniéré de régler le problème.


Merci

Carlos