moyenne plusieurs cellules

[celiostat]

Bonjour je souhaite calculer une moyenne a partir de divers cellules non adjacentes,

de plus, je souhaite je souhaite mettre une formule afin que si l'une d'entre elle comporte un zéro, elle ne soit pas prise en compte pour le calcul ,

dans le fichier ci joint,
j'ai donc indiqué valeur théorique et valeur recherché
la somme est donc divisé par 3 trop au lieu de 4, mais je voudrais que cela se fasse en automatique,
j'espère avoir été clair !

j'ai pensé à une fonction nb.si ....

Merci bcp pour votre aide
L.

 

[wilfried_42]

Re : moyenne plusieurs cellules

Bonjour

formule matricielle à placer en C14 et à valider en appuyant sur Ctrl+Maj+Entrée

=SOMME(SI(MOD(LIGNE($1:$27);5)=0;$H$1:$H$27;0))/SOMME(SI(MOD(LIGNE($1:$27);5)=0;SI($H$1:$H$27>0;1;0);0))

si la validation est correcte, des {} encadreront automatiquement la formule.

 

[celiostat]

Re : moyenne plusieurs cellules

merci de la réponse,

ceci dit j'aimerais autant que possible éviter les matricielles car le fichier va circuler et cela peut créer des confusions, par aillerus, les cellules à inclure étant en fait disposées horizontalement, je n'arrive pas à dupliquerla formule

une autre idée ?

 

[wilfried_42]

Re : moyenne plusieurs cellules

re:

autre formule mais ca devient lourd à saisir

=Somme(A1;A8;A10;B11)/((A1>0)+(A8>0)+(A10>0)+(B11>0))

 

[celiostat]

Re : moyenne plusieurs cellules


oui d'autant qu'il y a 22 cellules à inclure, ... je vais creuser voire si on peut une /nb.si !?!

 

[wilfried_42]

Re : moyenne plusieurs cellules

re:

nb.si ne fonctionne pas sur des plages discontinues, il faut passer par macro voire une fonction personnalisée avec une plage nommée. mais son utilisation demande des formules matricielles. (on tourne en rond)

la fonction personnalisée contient 5 ou 6 lignes pas plus

 

[mromain]

Re : moyenne plusieurs cellules

bonjour celiostat, wilfried_42

voici une solution avec une fonction en VBA:

Public Function MaMoyenne(ParamArray zones()) As Double
Application.Volatile
Dim curCell As Range, nbVal As Integer, i As Integer
'MaMoyenne = 0: nbVal = 0
For i = LBound(zones) To UBound(zones)
    For Each curCell In zones(i)
        If IsNumeric(curCell.Value) And curCell.Value <> 0 Then
            MaMoyenne = MaMoyenne + curCell.Value
            nbVal = nbVal + 1
        End If
    Next curCell
Next i
If nbVal <> 0 Then MaMoyenne = MaMoyenne / nbVal
End Function

a+

 

[celiostat]

Re : moyenne plusieurs cellules

faudra vraiment qu'un jour je me mette aux macros
je ne touche pas le VBA et donc suis obligé de rester avec nos bonne veilles formules à ralonge !!

merci à tous les deux,
j'ai opté pour la solution de wilfried à son deuxième post,

à bientôt,
passez un bon WE