Calcul moyenne sur VBA excel Résolu/Fermé

Question

Bonjour,

J'ai un tableau excel de k colonnes. Je commence par rechercher la première cellule vide (cellule (1,k)). Et là je veux calculer une moyenne de toute ma ligne soit de la cellule A1 à Ak.
Mais je n'y parviens pas. 
Voici mon code :

  k = 1
  Cells(1, 1).Select
 
   While Cells(1, k).Value <> ""
   k = k + 1
    Wend

  Cells(1, k).Select
  Cells(1, k).Value = "Moyenne"
  Cells(45, k).Select
  ActiveCell.FormulaR1C1 = "Average(Cells(45, 1), Cells(45, k))"

Ceci va ecrire ds ma cellule (45,k) "Average(Cells(45, 1), Cells(45, k))"
mais ce ne fait pas le calcul...

Quelqu'un peut m'aider?

Utilisateur anonyme · Accepted Answer

Bonjour,


Sub CalculMoyenne()

    Dim K As Long, Formule As String
    
    Range("A1").Select
    K = (Range("A1:IV1").End(xlToRight).Column + 1)
    Cells(1, K).Value = "Moyenne"
    Formule = "=AVERAGE(" & Cells(45, 1).Address & ":" & Cells(45, K - 1).Address & ")"
    Cells(45, K).Value = Formule

End Sub
'

Lupin

Amanda · Answer

MERCI beaucoup!!!!

Calcul moyenne sur VBA excel

2 réponses

Discussions similaires