[XL-2000] Calcul moyenne cellule en vba

[zeralium]

Bonjour,

j'utilise actuellement le code suivant pour calculer une moyenne:

Code :

1
2
3
4
5
6
Do until cells(1,c)=""
res ="=AVERAGE(" & cells(i1,c).address & ":" & cells(i2,c).address & ")"
cells(1,1).value=res
cells(i2,c)=cells(1,1)
c=c+1
loop

J'applique ce code sur 255 colonne et sur plus de 300000 lignes.

Je pense qu'il y a plus simple notamment la partie calcul de la moyenne, sachant que la valeur contenue dans i2 doit rentrer dans le calcul de la moyenne et que c'est dans cette cellule que doit etre mis le resultat de la moyenne.

Par avance merci.

[Daniel.C]

Bonjour,

Au lieu de proposer un code, dis ce que tu veux faire.

[zeralium]

le but est de calculer la moyenne des valeurs contenu dans un range, mettre le resultat dans une variable et mettre la valeur de cette variable dans une cellule.

[Daniel.C]

Je te défie d'écrire une macro avec si peu d'informations. Détaille, s'il te plait.

[gFZT82]

Bonjour,

Ton code ne réalise pas un simple calcul de moyenne.
Pour l’exemple, je choisis i1=2, i2=10 et c=2.

Avec ta formule, à la première itération tu obtiens la moyenne de la plage B2:B10
Tu inscris =MOYENNE($B$2:$B$10) dans la cellule A1.
Tu affectes à la cellule B10 la valeur moyenne qui vient d’être calculée (et qui prenait en compte la valeur de B10).
Au final, dans A1 tu as une nouvelle moyenne qui prend en compte l’ancienne moyenne.

Je vois bien la finalité

Cordialement.