Discussion :

[JessieCoutas]

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.

[diude54]

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

Code :

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

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

[Fvandermeulen]

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

Code :

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

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+

[diude54]

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.

[JessieCoutas]

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