XL 2010 calcul et message en VBA

sylvanu à dit:

Bonjour Abidi jiji,
Cela peut être fait simplement par formule.
Un essai en PJ avec :

VB:

=SIERREUR((SOMME(D:D)-MIN(D:D)-MAX(D:D))/(NB.SI(D:D;"<>")-2);"Calcul impossible")

On fait la somme de la liste, on retire le min et le max, puis on divise par le nombre d'éléments moins deux
En VBA on peut faire cette fonction :

VB:

Function MoyenneSansMinMax(Plage)
    Dim R, N: Application.Volatile
    R = Application.Sum(Plage) - Application.Min(Plage) - Application.Max(Plage)
    N = Application.CountIf(Plage, "<>") - 2
    If N < 1 Then
        MoyenneSansMinMax = "Calcul impossible"
    Else
        MoyenneSansMinMax = R / N
    End If
End Function

Cliquez pour agrandir...

Phil69970 à dit:

Bonjour @ABIDI JIJI

En clair tu veux que l'on fasse tes devoirs !! 😡

Perso je ne vois pas l’intérêt de rendre un devoir que tu n'as pas fait du tout !!
Si tu as un 20 tu le partages avec ceux qui t'on aidé et pire si tu obtiens un diplôme sans avoir forcement les connaissances quel sera réellement sa valeur !
Je dis ça je dis rien....

Bonne chance

@Phil69970

Cliquez pour agrandir...

ABIDI JIJI à dit:

après avoir retranché la plus petite et la plus grande valeurs

Cliquez pour agrandir...

ABIDI JIJI à dit:

Écrivez une procédure VBA sous Excel

Cliquez pour agrandir...