Problème VBA excel tirer une formule moyenne

francois996 -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -
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 871 Date d'inscription   Statut Membre Dernière intervention   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 871 Date d'inscription   Statut Membre Dernière intervention   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 10909 Date d'inscription   Statut Membre Dernière intervention   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