XL 2016 moyenne avec des lettres

[Jimbor]

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

 

[eriiic]

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 ;-)

 

[eriiic]

Bonjour Staple, bon dimanche

 

[Dranreb]

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").

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 :

=Appréc(MOYENNE(Note(K3:S3)))

 

[Dranreb]

Remarque :
En U2 :

=Appréc(MEDIANE(Note(K2:S2)))

trouve "I".