Cellules variables

[cOx]

Bonjour,
voici mon problème:
Je voudrais calculer une moyenne dans une liste de cases variables et mettre le résultat après cette liste variable.

Par exemple:
-J'ai une liste de nombres de A1 à A51 alors je voudrais mettre le résultat de la moyenne de ces nombres dans A52.
Sachant que je peux avoir 60 nombres et la formule simpliste: =moyenne($A$1:$A$51) ne marche plus.

Donc, j'ai essayé de mettre une variable en tant que numéro de case du genre:
NbTotal as integer
Je parcours ma liste pour récupérer le total de nombre.
Je le mets dans NbTotal et je fais la moyenne:

Cells(NbTotal,1).FormulaLocal="=moyenne($A$1:$A$NbTotal)
mais ça ne marche pas.

Merci d'avance.

 

[zon]

Re,


Cox, utilise plutot ceci

[A52].formula="=average(A1:A51)" ou [A52].formulalocal= "=Moyenne(A1:A51)"


Tu n'as pas besoin de recupérer le Nb de tes chiffres, puisque Les cellules vides sont omises dans le calcul de la moyenne .... Dailleurs je ne comprends pas comment tu peux mettre 60 nombres sur 50 lignes...


A+++

 

[Jean-Marie]

Bonsoir,

Cette formule devrait marcher =MOYENNE(DECALER(A1;;;NbTotal)),

Pour calculer le nombre de données ? d'une colonne, NBVAL(A:A), mais il ne faut pas de lignes vides entre les données.

Bonne soirée

@+Jean-Marie

 

[cOx]

Merci pour votre aide mais j'ai trouvé une autre solution, en essayant avec une macro et en modofiant le code après:

Cells(LigneT, ColonneT).Select
Range(Selection, Selection.End(xlDown)).Select
Add = Selection.Address

Moy = "=AVERAGE("+ Mid(Add, 2, Len(Add) - 1) + ")"

Merci encore...