Discussion :

[juliette81]

Bonjour,

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

Code :

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

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

[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..

[juliette81]

Le code s'arrête la,

Code :

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

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

[illight]

Ecrit comme cela :

Code :

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

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

[juliette81]

Ca marche nickel merci!!