Problème VBA excel tirer une formule moyenne

francois996 -  
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
    =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
    1. 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
      1. Christof422
        Mais il n'y pas besoin d'une maccro pour un calcul aussi basique.
        0
        1. francois996
          Si car c'est une partie de ma macro..
          0
          2. ccm81
            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