Bonjour,

J'ai une colonne qui se remplit avec un userform. Elle débute à la ligne 2 et se termine à
Code : Sélectionner tout - Visualiser dans une fenêtre à part
DerniereLigne=Range("A65536").End(xlUp).Row
Je souhaite calculer la moyenne de cette colonne et la placer à la ligne 1.
Je souhaite également que les lignes vides soient considérées comme ayant la valeur 0.

J'ai fait une boucle for mais je ne suis pas sure que ça soit la solution. J'ai également lu un tutoriel sur la fonction Average mais n'arrive pas à l'appliquer à mon cas.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Dim i As Integer
Dim tot As Variant
Dim moyenne As Variant
Dim DerniereLigne As Variant
DerniereLigne = Range("A65536").End(xlUp).Row
 
For i = 2 To DerniereLigne
tot = tot + Range("A" & i)
moyenne = tot / DerniereLigne
 
Next i
Range("A1").Value = moyenne
Merci de m'aider. Je me sens un peu bête de poser cette question.