XL 2019 Moyenne pondérée de notes sur 5, 10 ou 20 avec coefficient

elbazs · 3 Avril 2022

Bonjour,

Je souhaite réaliser une moyenne de notes sur 5, sur 10 ou sur 20, avec des coefficients différents.
Je souhaite également que lorsque une note est manquante, elle ne soit pas prise en compte dans la moyenne.
Ma formule est presque bonne, puisqu'elle prend en compte le coefficient et les notes manquantes, mais pas notée sur 5 ou 10.
Elle considère que toutes les notes sont sur 20.

Merci d'avance.

chris · 4 Avril 2022

Bonjour

VB:

=ARRONDI(SOMMEPROD((20/$B$2:$E$2*$B5:$E5);$B$3:$E$3)/SOMME($B$3:$E$3);2)

JHA · 4 Avril 2022

Bonjour à tous,

Pour ne pas prendre en compte les notes manquantes, peut-être:

VB:

=ARRONDI(SOMMEPROD(20/$B$2:$E$2*($B5:$E5+SI(NON(ESTNUM($B5:$E5));$B$2:$E$2;0));$B$3:$E$3)/SOMME($B$3:$E$3);2)

JHA

elbazs · 4 Avril 2022

JHA, merci de la réponse mais la moyenne ainsi calculer ne me donne pas le meme résultat que celui du logiciel de l'école et je n'arrive pas à comprendre pourquoi.
Je te mets une piece jointe pour comprendre comment ils calculent la moyenne san prendre en compte la note manque

elbazs · 4 Avril 2022

elbazs à dit:
JHA, merci de la réponse mais la moyenne ainsi calculer ne me donne pas le meme résultat que celui du logiciel de l'école et je n'arrive pas à comprendre pourquoi.
Je te mets une piece jointe pour comprendre comment ils calculent la moyenne san prendre en compte la note manque

Le problème se voit bien quand on met la meme note, qu'elle soit notée sur 5, 10 ou 20, la moyenne ne correspond pas a cette note alors que cela devrait etre le cas

sylvanu · 5 Avril 2022

Bonsoir Elbazs, Chris, JHA,
Un essai en PJ avec une fonction perso :

VB:

Function MoyennePondere(Notes, Sur, Coef)
    Dim Tn, Ts, Tc, Somme, Diviseur, i
    Tn = Notes: Ts = Sur: Tc = Coef: Somme = 0: Diviseur = 0
    For i = 1 To UBound(Tn, 2)
        If Tn(1, i) <> "" Then
            Diviseur = Diviseur + Tc(1, i)
            Somme = Somme + 20 * Tc(1, i) * Tn(1, i) / Ts(1, i)
        End If
    Next i
    If Diviseur = 0 Then MoyennePondere = "" Else MoyennePondere = Round(Somme / Diviseur, 2)
End Function

Les macros doivent être acceptées à l'ouverture du fichier.

chris · 5 Avril 2022

RE

Si les notes manquantes ne sont pas en prendre en compte

VB:

=ARRONDI(SOMMEPROD((20/$B$2:$E$2*$B5:$E5);$B$3:$E$3)/SOMME.SI.ENS($B$3:$E$3;B5:E5;"<>");2)

A noter que ta capture d'écran n'est pas claire sans contexte mais a priori ma formule donne bien 13,40 si 6.5 est en note 4 et les 2 autres des notes sur 20 en coeff 2 (il manque sur ton exemple les infos de la note 5...)

La moyenne des moyennes en G10 est une aberration mathématique

elbazs · 18 Avril 2022

elbazs à dit:
Le problème se voit bien quand on met la meme note, qu'elle soit notée sur 5, 10 ou 20, la moyenne ne correspond pas a cette note alors que cela devrait etre le cas

Désolé de ma réponse tardive. Merci tout fonctionne parfaitement.
Je vous remercie énormément.

XL 2019 Moyenne pondérée de notes sur 5, 10 ou 20 avec coefficient

elbazs

XLDnaute Nouveau

Pièces jointes

chris

XLDnaute Barbatruc

JHA

XLDnaute Barbatruc

Pièces jointes

elbazs

XLDnaute Nouveau

Pièces jointes

elbazs

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

chris

XLDnaute Barbatruc

elbazs

XLDnaute Nouveau

Discussions similaires