Calcul de moyenne sous VBA

Résolu/Fermé
Prissy - 10 févr. 2011 à 13:03
 Prissy - 10 févr. 2011 à 14:28
Bonjour à tous,

J'ai un soucis avec le calcul de moyenne avec une macro.
J'ai plusieurs feuilles dans mon classeur, une concernant les données "DONNEES" à traiter et une autre concernant le récapitulatif " Taj "

Mes données sont illimités, j'ai donc crée une variable me permettant de selectionner que les données entrés par l'utilisateurs, j'ai donc écrit ça :

L = ActiveCell.Row - 1
Sheets("taj").Select
Range("D6").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(DONNEES!R[1]C[-2]:R[L]C[-2])"

Mais ça beuge, il ne reconnait pas ma variable, quelqu'un aurait une solution pour faire une moyenne sur une plage variable

Merci par avance


A voir également:

3 réponses

ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 425
Modifié par ccm81 le 10/02/2011 à 14:10
bonjour

Dans ta formula, L est une variable dont la valeur est calculée au dessus
donc il faut "inserer"sa valeur dans la formule

= "=average('feuil1'!R[1]C[-2]:R" & L & "C[-2])"

RQ1. on peut eviter les Select

Sheets("taj").Range("D6").FormulaR1C1 =

RQ2. on peut l'ecrire en français !!
.FormulaR1C1Local = "=moyenne('feuil1'!L(1)C(-2):L" & L & "C(-2))"


bonne suite
1
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
10 févr. 2011 à 13:07
Bonjour,

Pour mieux t'aider, il conviendrait d'avoir ton code.
Car je pense savoir quel est le problème mais pour en être sure et pour pouvoir m'en assurer, j'ai besoinde ton code ou encore mieux de ton classeur.
Tu peux le déposer sur ci-joint.com
0
Merci de votre aide et surtout de la rapidité de vos réponses.

ccm81, ce que tu m'as proposé fonctionne, merci beaucoup !!!

Bonne journée.
0
ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 425
10 févr. 2011 à 14:13
re
si tu ne l'as pas vu, revois la fin du post,2, j'y ai ajouté 2 RQ
tu mets le pb a resolu
bonne suite
0
Ok ! C'est bon a savoir !!!!
0