Function valeurprochede(valeur As Double, dans As Range)
'initialisation de la variable diff a une tres forte valeur (9 puissance 9)
[B]Dim diff As Double
[/B]'Dim diff fonctionne aussi
'demander aux vbaistes du forum quelle est la bonne déclaration ;)
diff = 9 ^ 9
'pour chaque cellule du range dans
For Each cell In dans
'si la valeur absolue de la difference est inferieure
' a la derniere difference trouvée alors
If Abs(valeur - cell) < diff Then
' cette difference est la plus petite trouvée
diff = Abs(valeur - cell)
'et la valeur proche celle de la cellule testée
valeurprochede = cell
End If
' on passe a la cellule suivante
Next cell
End Function