Moyenne avec variable vba

Version imprimable

Bonjour,

Si quelqu'un pouvait m'aider... un bout de code qui ne marche pas et je ne comprends pas!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub MOYENNE()
 
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
DernColonne = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
y = 5
While y < DernColonne + 1
 
Range(Cells(DernLigne + 1, y)).Value = Application.Average(Range(Cells(2, y), Cells(DernLigne, y)))
Range(Cells(DernLigne + 1, y)).Value = Application.StDev(Range(Cells(2, y), Cells(DernLigne, y)))
y = y + 1
 
 
Wend
End Sub

Merci d'avance

07/10/2015, 16h45
illight

C'est quoi qui ne marche pas ? tu as un message d'erreur ? sur quelle ligne ta macro s'arrête ?

Cela dit, pour faire ta moyenne, je comprend pas pourquoi tu fais une boucle While, vu qu'il faut prendre toutes les cellules de ta colonne pour faire la moyenne..
07/10/2015, 16h56
juliette81

Le code s'arrête la,

Code:

Range(Cells(DernLigne + 1, y)).Value = Application.Average(Range(Cells(2, y), Cells(DernLigne, y)))

et je fais une boucle while je veux l'appliquer sur des colonnes de longueurs variables

Merci

Ecrit comme cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub MOYENNE()
 
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
DernColonne = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
y = 5
While y < DernColonne + 1
Cells(DernLigne + 1, y).Value = Application.Average(Range(Cells(2, y), Cells(DernLigne, y)))
Cells(DernLigne + 1, y).Value = Application.StDev(Range(Cells(2, y), Cells(DernLigne, y)))
y = y + 1
Wend
 
End Sub

ça marchera mieux :D

08/10/2015, 08h36
juliette81

Ca marche nickel merci!!