Discussion :

[Alaska12]

Quel est le code VBA pour la fonction:moyenne(variable:variable)

[Sclarckone]

Il y en a une dérivée des fonctions Excel:

Function Average(Arg1, [Arg2], [Arg3], [Arg4], [Arg5], [Arg6], [Arg7], [Arg8], [Arg9], [Arg10], [Arg11], [Arg12], [Arg13], [Arg14], [Arg15], [Arg16], [Arg17], [Arg18], [Arg19], [Arg20], [Arg21], [Arg22], [Arg23], [Arg24], [Arg25], [Arg26], [Arg27], [Arg28], [Arg29], [Arg30]) As Double
Membre de Excel.WorksheetFunction

Pour un truc plus exotique, faut le faire à la main (à moins qu'il existe une autre fonction que je ne connaisse pas).

[Daniel.C]

Bonjour,

Que représentent "variable:variable" ? une plage de cellule genre A1:C5 ?

[Alaska12]

Bonjour,

Que représentent "variable:variable" ? une plage de cellule genre A1:C5 ?

Exactement mais sous forme Average=(cells(a, b):cells(c,b))

[Daniel.C]

Pas sûr que ce soit ce que tu veuilles :

Code :

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

1
2
3
4
5
a = 11
b = 2
c = 17
d = 5
MsgBox Application.Average(Range(Cells(a, b), Cells(c, d)))

[Alaska12]

Désolé de t'embêter, je suis vraiment au début

Je cherche la fin d'une colonne de nombres et voudrait calculer la moyenne de celle-ci.
J'avais pensé à la section suivante:

Code :

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

1
2
3
4
5
6
7
8
9
Dim z As Double
 
z = 2
While Cells(z, 11) <> ""
z = z + 1
Wend
 
Cells(z, 11).Select
    ???Selection.Average(cells(2,11),cells(z,11)????