Problème VBA excel tirer une formule moyenne
Fermé
francois996
-
18 juin 2012 à 14:24
ccm81 Messages postés 10860 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 mai 2024 - 18 juin 2012 à 16:49
ccm81 Messages postés 10860 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 mai 2024 - 18 juin 2012 à 16:49
A voir également:
- Problème VBA excel tirer une formule moyenne
- Formule moyenne excel - Guide
- Formule excel - Guide
- Liste déroulante excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Formule excel si et - Guide
5 réponses
Christof422
Messages postés
867
Date d'inscription
mardi 24 mai 2011
Statut
Membre
Dernière intervention
8 février 2015
212
18 juin 2012 à 14:30
18 juin 2012 à 14:30
=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.
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.
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.
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.
Christof422
Messages postés
867
Date d'inscription
mardi 24 mai 2011
Statut
Membre
Dernière intervention
8 février 2015
212
18 juin 2012 à 15:35
18 juin 2012 à 15:35
Mais il n'y pas besoin d'une maccro pour un calcul aussi basique.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ccm81
Messages postés
10860
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 mai 2024
2 406
18 juin 2012 à 16:49
18 juin 2012 à 16:49
bonjour à tous
puisque tu tiens à une macro, un code à adapter
bonne suite
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
