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

5 réponses

  1.
    Christof422 Messages postés 990 Statut Membre 213
     
    =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
  2. 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
  3. Christof422 Messages postés 990 Statut Membre 213
     
    Mais il n'y pas besoin d'une maccro pour un calcul aussi basique.
    0
  4. francois996
     
    Si car c'est une partie de ma macro..
    0

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

    Posez votre question
  6. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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