Macro Excel : Calcul d'une moyenne

[invitec2898a33]

Bonjour,
J'ai une série de données dont j'aimerais calculer la moyenne sans prendre en compte le minimum et le maximum de la série.
Mon problème dans la macro et d'enlever ces extrêmas pour calculer la moyenne.
Quelqu'un aurait-il une idéé svp ?

Merci d'avance.
-----

[invite770d9cfe]

Dans un tableau de 11 lignes sur 3 colonnes ça devrait donner (si je n'ai pas fait d'erreur) :

=SOMME(A1:C11)-MIN(A1:C11)-MAX(A1:C11)/(LIGNES(A1:C11)*COLONNES(A1:C11))-2

A toi de jouer, pas besoin de macro sur un tableau fixe. s'il faut calculer la moyenne sur une sélection : macro.

[invitec2898a33]

Très bien ! je vais intégrer cela dans ma macro !!!

Merci beaucoup !

[invitec2898a33]

En fait je sui bloqué dans la macro maintenant...
C'est une série de données sur une seule colonne ; mais mon souci c'est que le nombre de données (donc de lignes) varie !
Et là je suis embêté...

Merci d'avance

[A voir en vidéo sur Futura]

[invite040cec0f]

si le nombre de ligne ou de colone est modifié de la bonne facon , les formules vont se modifier automatiquement pour tenir compte de leur nouveau nombre

ca marche surtout quand on ajoute une ligne en copiant un ligne dans le tableau

bien sur ca ne marche pas si on ajoute une ligne a la fin du tableau : exel ne peut pas tout deviner

helas je ne sais pas comment ca marche exactement comment savoir si un chiffre dans une formule est lié au tableau ou est un chiffre fixe quoi qu'il arrive

[invite770d9cfe]

Simple. Tu sélectionnes la plage qui t'intéresse et tu lances la macro ci-dessous :

Sub Moyenne()
  Dim c As Range
  Dim Total, Moyenne As Double
  Dim Compteur As Integer
  Dim Mini, Maxi As Double
  
  Maxi = -2147483648#
  Mini = 2147483647
  Compteur = 0
  
  For Each c In Selection
    If c.Value > Maxi Then Maxi = c.Value
    If c.Value < Mini Then Mini = c.Value
    Total = Total + c.Value
    Compteur = Compteur + 1
  Next c
  Moyenne = (Total - Mini - Maxi) / (Compteur - 2)
  MsgBox Moyenne
End Sub