Moyenne dans un textbox selon listbox

Bonjour

J'ai trouvé sur le web le code qui suit pour faire apparaitre le total des items d'une listbox dans un textbox

Dim THT As Single 
With ListBox1 
    For i = 0 To .ListCount - 1 
        THT = THT + .Column(2, i) 
    Next i 
    TextBox15.Value = THT 
End With

C'est parfait, ça fonctionne.

Cependant, serait-il possible de l'adapter afin de trouver la valeur moyenne et non plus la somme ?

Merci d'avance

boby63 a écrit :

Bonjour

J'ai trouvé sur le web le code qui suit pour faire apparaitre le total des items d'une listbox dans un textbox

Dim THT As Single 
With ListBox1 
    For i = 0 To .ListCount - 1 
        THT = THT + .Column(2, i) 
    Next i 
    TextBox15.Value = THT 
End With

C'est parfait, ça fonctionne.

Cependant, serait-il possible de l'adapter afin de trouver la valeur moyenne et non plus la somme ?

Merci d'avance

Bonjour Boby63.

Rien de bien compliqué. En effet, la moyenne égale la somme divisé par le nombre de valeurs additionnées.

Tu devrais pouvoir obtenir le résultat ainsi :

MOYENNE = THT / ListBox1.ListCount

Impec, ça fonctionne parfaitement

Merci beaucoup Benoît