Calcul de moyenne

Bonjour à tous,

Voila mon problème : je voudrais calculer une moyenne dans un tableau excel de 2 façons différentes 1 avec une "formulalocal" que j'ai faite et une autre avec l'instruction "worksheetfunction.average(avec ma place de cellule)" que je n'arrive pas à coder.

Pouvez-vous regarder ce que vous pouvez faire avec la macro ci-joint où les endroits où il y a des "????" se sont les emplacements qui me retourne en erreur.

Merci par avance du temps que vous allez y consacrer.

A vous lire,

Kira

14bloc-note.txt (787.00 Octets)

Bonjour Kira,

Sub fonction()
Dim moyenne As Integer
moyenne = WorksheetFunction.average(Range("A1:A3"))
Debug.Print (moyenne)
End Sub

Merci encore d3d9x, tu pense qu'il serait possible de calculer une moyenne en complétant cette ligne ci : MaPlage.Offset(Cptlig, 6).value = ? sans faire de worksheetfunction.average ?

Bonjour,

Essaie ainsi :

Sub q2b()
Dim maPlage As Range, Cptlig As Long
    Set maPlage = ThisWorkbook.Worksheets("Feuil1").Cells(1, 1)
    maPlage.Offset(, 6).Value = "Moyenne T1-T4"
    'Parcours la plage en ligne
    For Cptlig = 1 To maPlage.End(xlDown).Row - maPlage.Row
        'Complétez la ligne pour calculer la moyenne dans le programme
        maPlage.Offset(Cptlig, 6).Value = WorksheetFunction.Average(maPlage.Offset(Cptlig, 2).Resize(, 4))
    Next Cptlig
End Sub

Merci Jean-Eric

ta solution fonctionne mieux merci beaucoup à vous deux !

Rechercher des sujets similaires à "calcul moyenne"