Valeur la plus proche de la moyenne VBA

Bonjour,

Voilà, j'ai une base de données, et je dois trouver la valeur la plus proche de la moyenne dans cette base de données.

Je ne sais pas si c'est très clair, j'en suis désolé. En fait, en gros, je dois dans un premier temps calculer la moyenne de la base de données puis trouver la valeur dans cette même base qui s'en rapproche le plus (en positif ou négatif).

Sauriez-vous s'il y a un moyen de faire ceci sur VBA?

Merci beaucoup!!

Exemple de fonction

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Function ProcheMoy(ByVal Rng As Range) As Double Dim Mn As Double, X As Double Dim Tb As Variant Dim i As Long   Tb = Rng.Value Mn = Application.Average(Rng) For i = 1 To UBound(Tb, 1) If Abs(Tb(i, 1) - Mn) < Abs(X - Mn) Then X = Tb(i, 1) Next i ProcheMoy = X End Function

---

Permet de retourner la valeur la plus proche de la moyenne de la plage Rng

Merci beaucoup de votre réponse.

J'aurais une autre question, ce serait de savoir si il y a un moyen de surligner la cellule dans laquelle se trouve cette valeur la plus proche de la moyenne. Est ce possible?