Calcul de la moyenne des cellules C2:C21

[mbiber]

Bonjour, j´essaye de calculer la moyenne des cellules de C2 jusqu´à C21, mais lorsque je lance le code VBA, ca ne marche pas. Dans le tableau jobtiens dans la cellule I2 : "=AVERAGE($B:$U)"
Y a-t-il une autre facon de procéder?
Merci d´avance

Sub CalculMoyenne()
Range("I1").Select
ActiveCell.FormulaR1C1 = "Moyenne masse type de produits:"
Range("I2").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(C2:C21)"

End Sub

 

[Misange]

Re : Calcul de la moyenne des cellules C2:C21

Bonjour

Quel est l'intérêt d'écrire par macro une formule dans une feuille ?
Soit tu l'écris dans la feuille
soit tu fais le calcul dans la macro et tu injectes le résultat dans la feuille

range("I1")=Application.WorksheetFunction.Average(range("C1:C12"))

 

[Modeste geedee]

Re : Calcul de la moyenne des cellules C2:C21

Bonsour®

Sub CalculMoyenne()
 Range("I1")= "Moyenne masse type de produits:"
 Range("I2").Formula = "=AVERAGE(C2:C21)"
 End Sub

😕
pourquoi utiliser VBA pour écrire une formule dans une cellule ???

🙄
[SUB]Pourquoi faut-il ceuillir les cerises avec la queues ?, c'est déjà assez difficile avec la main !! (Coluche)[/SUB]

 

[Misange]

Re : Calcul de la moyenne des cellules C2:C21

Bonsour®

😕
pourquoi utiliser VBA pour écrire une formule dans une cellule ???

Salut GeeDee
Tu poses vraiment la question ??

 

[mbiber]

Re : Calcul de la moyenne des cellules C2:C21

Ok, c'est noté! Merci beaucoup à tous pour les réponses 🙂

 

[Modeste geedee]

Re : Calcul de la moyenne des cellules C2:C21

Bonsour®

Tu poses vraiment la question ??

métalepse ?