Calcul sur cellules précises...

[Rick@]

Bonjour,

Comment calculer des cellules bien précise tel des formats % seulement, parmis un ensemble de cellules...voir fichier.

Merci à l'avance.

 

[phlaurent55]

Re : Calcul sur cellules précises...

Bonjout Rick

avec ceci: (version Excel 2007):
=MOYENNE.SI.ENS(D8:L8;D8:L8;"<1")

ou alors pour la version 2003:
=SOMME.SI(D8:L8;"<1")/3

ou peut-être:
=((G8*3)+(J8*2)+L8)/6

à+
Philippe

 

[Victor21]

Re : Calcul sur cellules précises...

Bonjour, Rick@, Philippe

Avec l'exemple présenté qui, j'en suis sûr, est représentatif de tous les cas possibles :

=SOMME.SI(D8:L8;"<1")/NB.SI(D8:L8;"<1")

 

[ROGER2327]

Re : Calcul sur cellules précises...

Bonjour à tous

Une fonction personnalisée :​

Function MoySpc(r As Range)
Dim Cel As Range, i&, s#
    For Each Cel In r.Cells
        If Cel.NumberFormat = "0%" Then i = i + 1: s = s + Cel.Value
    Next
    If i Then MoySpc = s / i Else MoySpc = ""
End Function

Utilisation :

=MoySpc(D8:L8)

ROGER2327
#5936

Jeudi 26 Merdre 139 (Sainte Barbaque, naïade - fête Suprême Quarte)
24 Prairial An CCXX, 6,9076h - caille-lait
2012-W24-2T16:34:42Z

 

[Rick@]

Re : Calcul sur cellules précises...

Merci à vous tous,

Puissant ce forum!!!!

 

[Rick@]

Re : Calcul sur cellules précises...

Oupss!! Petit hic,

=SOMME.SI(D8:L8;"<1")/NB.SI(D8:L8;"<1")
Cette formule tiens compte des valeurs 0... comment arriver à ne compter que les valeurs en % sans utiliser de code?

 

[ROGER2327]

Re : Calcul sur cellules précises...

Correction de la fonction personnalisée proposée plus haut :

Function MoySpc(r As Range)
Application.Volatile
Dim Cel As Range, i&, s#
    For Each Cel In r.Cells
        If Cel.NumberFormat = "0%" And Not IsEmpty(Cel) Then i = i + 1: s = s + Cel.Value
    Next
    If i Then MoySpc = s / i Else MoySpc = ""
End Function

ROGER2327
#5939

Jeudi 26 Merdre 139 (Sainte Barbaque, naïade - fête Suprême Quarte)
24 Prairial An CCXX, 9,6912h - caille-lait
2012-W24-2T23:15:32Z