[VBA]Calculer la moyenne et ecartype d'un tab

Fermé
cedric1989 Messages postés 257 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 25 octobre 2012 - 14 juil. 2010 à 15:30
 Marc - 13 janv. 2016 à 16:02
Bonjour,

J'ai de tableau qui contient des nombre de type double. Quelqu'un sait comment je pourrai calculer leur moyenne et l'écart-type ?
J'ai essayé la fonction Avg et average pour la moyenne, mais j'ai obtenue une erreur, qui devait plus ou moins dire que la fonction n'existait pas (je suis pas au travail aujourd'hui et je n'arrive plus à me souvenir du message)
Je développe plus précisément une macro pour un classeur excel, mais mes données sont dans un tableau, et non dans une feuille.

Merci d'avance

2 réponses

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 950
Modifié par Mytå le 15/07/2010 à 00:23
Salut le forum

Sous VBA la fonction moyenne (Average) est inexistante.

Pour contourner le problème
'Calculer la moyenne 
     Set range_tmp = Sheet1.Range(Cells(i, 1), Cells(i + 40, 1)) 
          Moyenne = WorksheetFunction.Average(range_tmp) 

Pour un Tableau
Dim Tablo(1 To 2)
'Calculer la moyenne
     Tablo(1) = 10
     Tablo(2) = 5
          Moyenne = WorksheetFunction.Average(Tablo)

Mytå
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]
4
Le Pingou Messages postés 12229 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 9 janvier 2025 1 454
Modifié par Le Pingou le 14/07/2010 à 23:21
Bonjour,
Est-il possible de voir une copie de la procédure utilisée pour calculer cla moyenne ?
Si votre tableau n'est pas dans une feuille, ou est-il ?

Salutations.
Le Pingou
0
Bonjour,
Je n'arrive pas à calculer la température moyenne toutes les 10 secondes à partir d'un fichier brut comportant 2 colonnes [ temps(toutes 0.5secondes) ; T°C ]
l'objectif est d'avoir la température toutes les 10 secondes au lieu de toutes les 0.5 secondes car il y a du bruit de fond

Merci par avance pour votre aide
0