Calcul moyenne sur VBA excel

Résolu

Amanda -
Amanda - 11 janv. 2008 à 14:57

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?

A voir également:

Moyenne vba
Excel moyenne - Guide
Moyenne en anglais excel - Guide
Excel compter cellule couleur sans vba - Guide
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Find vba - Astuces et Solutions

2 réponses

Réponse 1 / 2

Utilisateur anonyme

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

Réponse 2 / 2

Amanda

MERCI beaucoup!!!!

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

Faire la moyenne de pourcentage sur Excel

Moyenne de pourcentage d'évolution

appliquer une pause dans une macro vba excel

Votre réponse

Discussions similaires