Calculer la moyenne d'une colonne en VBA. Fonction average?

Bonjour,

J'ai une colonne qui se remplit avec un userform. Elle débute à la ligne 2 et se termine à

Code:

---

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:

---

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.

moy1 ne tient pas compte des 0
moyenne tient compte des 0

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub moy() Dim plage As Range Dim derligne As Integer   derligne = Range("A65536").End(xlUp).Row Set plage = Range(Cells(2, 1), Cells(derligne, 1)) moyenne1 = WorksheetFunction.Average(plage) somme = WorksheetFunction.Sum(plage) moyenne = somme / (derligne - 1) End Sub

---

Salut,
D'après ce que tu explique, je crois qu'on peut utiliser SousTotal, voici l'exemple:

Code:

---

1 2 3 4 5 6 7 8

Sub Moyenne()   'Défini la dernière ligne quelque soit la version Excel car XL2007 >65536 lignes DerniereLigne = Cells(Columns(1).cells.count,1).End(xlUp).Row 'Affecte la moyenne calculée sur la plage de A2 à Ax à la variable MaMoy MaMoy = Application.Subtotal(1, Range(Cells(2, 1), Cells(DerniereLigne, 1)))   End Sub

---

A+

Il faut préciser le type de sous total que l'on veut genre:
xlsum ou xlaverage.
Le problème de la prise en compte des champs vides ne sera pas résolu. Ils ne seront pas pris en compte.

Merci beaucoup! J'ai choisi ce que Diude54 me proposait car ça prend en compte les lignes vides comme étant égales à 0.

Super, merci beaucoup!!!
Bonne journée