Problème VBA excel tirer une formule moyenne

francois996 -  
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
mon problème est :
je dois faire la moyenne de toute une ligne et avoir la valeur au bout de celle ci,
et je voudrais pouvoir répéter cette fonction sur X ligne.
merci
A voir également:

5 réponses

Réponse 1 / 5
Christof422 Messages postés 990 Statut Membre 212
 
=MOYENNE(A1:A10)

Ecrire cet formule dans la cellule A11. Cela fera la moyenne des cellules A1 jusqu'a A10 et l'affichera en A11.

Il suffit ensuite d'étirer la cellule A11 sur les autres lignes.
0
Réponse 2 / 5
francois996
 
oui mais lorsque je recopie cette macro commande dans ma VBA excel me la bloque.. je ne comprend pas.
voila se que j'ai :

ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-40]:RC[-1])"
Selection.AutoFill Destination:=Range("AP2:AP720"), Type:=xlFillDefault
Range("AP2:AP720").Select

cela ne fonctionne pas.
0
Réponse 3 / 5
Christof422 Messages postés 990 Statut Membre 212
 
Mais il n'y pas besoin d'une maccro pour un calcul aussi basique.
0
Réponse 4 / 5
francois996
 
Si car c'est une partie de ma macro..
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
ccm81 Messages postés 11033 Statut Membre 2 433
 
bonjour à tous
puisque tu tiens à une macro, un code à adapter 

Const lideb = 1
Const lifin = 10
Const codeb = 1
Const cofin = 4
Dim co As Long, plage As String, f As String
For co = codeb To cofin
  plage = Range(Cells(lideb, co), Cells(lifin, co)).Address
  f = "=moyenne(" & plage & ")"
  Cells(lifin, co).Offset(1, 0).FormulaLocal = f
Next co

bonne suite
0