Moyenne sans valeur 0 ni cellules ides (sans liste)

[alain.raphael]

Bonsoir à Tous,

Je vous joins un fichier d'exemple.......... je cherche à ne pas prendre en compte les 0 ni les cellules vides..... seul problème les données sont réparties un peu partout dans le feuillet et donc je ne peux pas écrire "A1:A10" par exemple.

 

[mapomme]

Bonsoir @alain.raphael,

Essayez la formule:

=SOMMEPROD(ESTNUM(E6:E13)*(E6:E13>0);E6:E13) /SOMMEPROD(--ESTNUM(E6:E13)*(E6:E13>0))

edit : bonsoir @job75

 

[job75]

Bonsoir alain.raphael, mapomme,

Le fichier en retour avec cette formule matricielle (qui fonctionne sur toute version Excel) :

=MOYENNE(SI(E6:E13>0;E6:E13))

A+

 

[alain.raphael]

Merci.....mais les cellules ne sont pas à côté


Je rectifie le fichier par celui_là...

 

[job75]

Vous manquez vraiment d'imagination :

=MOYENNE(SI(E5:H13>0;E5:H13))

 

[alain.raphael]

Merci Job 75.....mais entre les cellules d'autres chiffres existent mais ne sont pas en prendre en compte....

Rectification du fichier...

 

[mapomme]

Re à tous,

Au cas où dans la plage, il y aurait des cellules numériques à ne pas prendre en compte, on peut utiliser une fonction personnalisée. Le code est dans Module1:

Function moyenne_si(ParamArray cellules())
Dim som, nbr, elem, xcell
  For Each elem In cellules
  For Each xcell In elem
    If xcell <> "" Then If IsNumeric(xcell) Then If xcell > 0 Then nbr = nbr + 1: som = som + xcell
  Next xcell: Next elem
  moyenne_si = ""
  If nbr > 0 Then moyenne_si = som / nbr
End Function

Exemple d'utilisation :

=moyenne_si(E10:E13;F5;G8;H9)

nota:

mais entre les cellules d'autres chiffres existent mais ne sont pas en prendre en compte....

Je m'en suis douté

 

[Staple1600]

Bonsoir le fil

Peut-être une question bête:
On ne peut pas utiliser =MOYENNE.SI.ENS dans cette affaire?

 

[mapomme]

Re @Staple1600

On ne peut pas utiliser =MOYENNE.SI.ENS dans cette affaire?

A partir du moment où (d'un point de vue Excel) les cellules à prendre en compte sont distribuées au hasard (c'est à dire à la volonté de l'utilisateur), j'ai du mal à voir comment définir des conditions. Il me semble qu'il faille passer par une énumération des cellules à prendre en compte. Enfin j'dis ça, j'dis rien, mais j'l'ai dit quand même

 

[job75]

Re, salut JM,

Perso j'utiliserais plutôt cette fonction VBA, très simple :

Function MaMoyenne(r As Range)
Dim n&
For Each r In r
    If IsNumeric(r) Then If r > 0 Then n = n + 1: MaMoyenne = MaMoyenne + r
Next
If n Then MaMoyenne = MaMoyenne / n
End Function

Bonne nuit.

 

[mapomme]

re @job75
Bon ça ne va pas ce soir. Je complique à souhait Je vais me coucher. Bonne-nuit

 

[Staple1600]

Bonsoir job75, ma pomme

ma pomme
Moi j'avais dit au préalable : Peut-être une question bête
que tu as coupé au montage
J'avoue que j'ai testé uniquement en lisant les posts du fil
=MOYENNE.SI.ENS(E6:E13;E6:E13;">0")
Et comme cela semblait bon, j'ai posé ma question bête
J'aurai du ouvrir les PJ avant.

 

[JHA]

Bonjour à tous,

Pourquoi pas Moyenne.si() tout simplement

=MOYENNE.SI($E$6:$E$13;">0")

JHA

 

[job75]

Bonjour JHA, le fil, le forum,

MOYENNE.SI et MOYENNE.SI.ENS ne fonctionnent pas sur les versions antérieures à Excel 2007.

C'est la raison pour laquelle au post #3 j'ai précisé "qui fonctionne sur toute version Excel ".

Bonne journée.

 

[merinos]

et en version simplifiee?