Discussion :

[Brady3004]

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!!

[mercatog]

Exemple de fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Brady3004]

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?