Calcul MoyTrim en VBA

[Archimed]

Bonjour tout le Monde🙂🙂;
J'ai écris ce Code en VBA pour le calcul de la moyenne trim mais il me paraît qu'on peut faire mieux, voici le code:
Function Moytrim (a,b,c)
If a<>0 and b<>0 and c= 0 Then
Moytrim =(a+b)/2
Else
If a<>0 and b=0 and c<> 0 Then
Moytrim =(a+c) / 4
Else
If a<>0 and b=0 and c = 0 Then
Moytrim =a
Else
If a=0 and b<>0 and c <> 0 Then
Moytrim =(b+c) / 4
Else
If a=0 and b<>0 and c = 0 Then
Moytrim =b
Else
If a=0 and b =0 and c <> 0 Then
Moytrim =c /3
Else
If a=0 and b =0 and c = 0 Then
Moytrim =""
Else
Moytrim =(a+b+c)/5
End If
End If
End If
End If
End If
End If
End If
End If
End Function

Merci de vouloir me donner un coup de main.Archi

 

[Cousinhub]

Re : Calcul MoyTrim en VBA

Bonjour, pas tout compris à la logique, mais ce code donne les mêmes résultats :

Function moytrim(a, b, c)
If a <> 0 And b <> 0 And c <> 0 Then moytrim = (a + b + c) / 5: Exit Function
Select Case c
Case "0", ""
If a <> 0 And b <> 0 Then moytrim = (a + b) / 2 Else moytrim = a + b + c
Case Is <> "0"
If a = 0 And b = 0 Then moytrim = c / 3 Else moytrim = (a + b + c) / 4
End Select
End Function

Bon courage

 

[Excel_lent]

Re : Calcul MoyTrim en VBA

Salut à tous,

Autre solution à tester :

Function Moytrim(a, b, c)
  If a = 0 And b = 0 Then
    If c = 0 Then Moytrim = "" Else Moytrim = c / 3
  End If
  If a = 0 Or b = 0 Then
    If c = 0 Then Moytrim = (a + b + c) / 1 Else Moytrim = (a + b + c) / 4
  End If
  If a <> 0 And b <> 0 And c <> 0 Then Moytrim = (a + b + c) / 5
End Function