XL 2016 moyenne avec des lettres

Jimbor

XLDnaute Nouveau
Bonjour,

j'ai un fichier avec 3 feuilles identiques, je donne des appréciations ( TB B S F I) dans un menu déroulant à chaque personne.

j'aimerai une feuille résumé avec une moyenne des appréciations.

Comment puis procéder ?

Merci de votre aide
 

Modeste geedee

XLDnaute Barbatruc
Bonsour®
Bonjour,

j'ai un fichier avec 3 feuilles identiques, je donne des appréciations ( TB B S F I) dans un menu déroulant à chaque personne.

j'aimerai une feuille résumé avec une moyenne des appréciations.

Comment puis procéder ?

Merci de votre aide
c'est le point de polémique de cette notation si l'on omet la valeur nulle !!
tout cela dépend de la pondération accordée aux lettres !!! (1 à 5 ou bien 0 à 4)
sinon faire une équivalence : lettre<==> note
on retombe alors dans le système de note standard. (sur 5, sur 10, sur 20 ou pondérée)

voir les fonctions : SOMME, MOYENNE, NB.SI, FREQUENCE, RANG, INDEX, EQUIV
 

Jimbor

XLDnaute Nouveau
Bonsour®
c'est le point de polémique de cette notation si l'on omet la valeur nulle !!
tout cela dépend de la pondération accordée aux lettres !!! (1 à 5 ou bien 0 à 4)
sinon faire une équivalence : lettre<==> note
on retombe alors dans le système de note standard. (sur 5, sur 10, sur 20 ou pondérée)

voir les fonctions : SOMME, MOYENNE, NB.SI, FREQUENCE, RANG, INDEX, EQUIV
Je me doute de passer par des chiffres pour faire l'équivalence mais je ne sais pas comment le faire.
est ce possible de faire directement afficher une lettre mais en réalité c'est un chiffre ?
 

eriiiic

XLDnaute Barbatruc
Bonjour,

Moyenne de Dessin!K2:S2 :
VB:
=INDEX({"I";"F";"S";"B";"TB"};ARRONDI(MOYENNE(SIERREUR(EQUIV(Dessin!K2:S2;{"I";"F";"S";"B";"TB"};0);""));0))
Formule matricielle à valider avec Shift+Ctrl+Entrée
La formule doit s'entourer de { } si la validation est correcte.
eric
 

Jimbor

XLDnaute Nouveau
Bonjour,
généralement je mets bonjour à la création du post ou à ma première réponse.
je n'ai jamais eu cette remarque de la part d'autres personnes ou forum.
Je viens de retaper les cotations et voici le fichier
 

Fichiers joints

eriiiic

XLDnaute Barbatruc
Ah, tu ne dis pas bonjour tous les jours à ta boulangère ?
Juste la 1ère fois et plus jamais pendant 10 ans ?

Remplace tes lettres par leur valeur et fait la moyenne.
On en reparle après ;-)
 

Dranreb

XLDnaute Barbatruc
Bonjour à tous.
j'aimerai une feuille résumé avec une moyenne des appréciations.
Ces fonctions perso, qui ont l'avantage de rendre les formules plus claires, trouvent aussi "F" (il y a quand même aussi un "TB" et un"S").
VB:
Option Explicit
Function Note(ByVal Don)
   Dim L&, C&
   If TypeOf Don Is Range Then Don = Don.Value
   If IsArray(Don) Then
      For L = 1 To UBound(Don, 1): For C = 1 To UBound(Don, 2)
         Don(L, C) = UneNote(Don(L, C)): Next C, L
      Note = Don
   Else: Note = UneNote(Don): End If
   End Function
Private Function UneNote(ByVal Appré)
   If VarType(Appré) = vbString Then If Len(Appré) >= 1 Then UneNote _
      = InStr("IFSBT", UCase$(Left$(Appré, 1))) Else UneNote = 0
   If UneNote = 0 Then UneNote = "?"
   End Function
Function Appréc(ByVal Don)
   Dim L&, C&
   If TypeOf Don Is Range Then Don = Don.Value
   If IsArray(Don) Then
      For L = 1 To UBound(Don, 1): For C = 1 To UBound(Don, 2)
         Don(L, C) = UneAppréc(Don(L, C)): Next C, L
      Appréc = Don
   Else: Appréc = UneAppréc(Don): End If
   End Function
Private Function UneAppréc(ByVal Note)
   On Error Resume Next
   UneAppréc = Choose(Int(Note + 0.5), "I", "F", "S", "B", "TB")
   If Err Then UneAppréc = "?"
   End Function
En U2 :
Code:
=Appréc(MOYENNE(Note(K3:S3)))
 
Dernière édition:

Discussions similaires


Haut Bas