XL 2010 calcul et message en VBA

[ABIDI JIJI]

bonjour svp j'ai besoin d'créer une procédure qui permet de calculer la moyenne des valeurs d'une plage de cellules après avoir retranché la plus petite et la plus grande valeurs . si le nombre de cellules de la plage est inferieur ou égale à 2 la procédure doit afficher le message "calcul impossible "

 

[sylvanu]

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

=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 :

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

 

[ABIDI JIJI]

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

=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 :

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

 

[Phil69970]

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

 

[ABIDI JIJI]

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

Non c'est un ancien devoir je veux seulemnet avoir comment elle faite la résolution ctt

 

[mapomme]

Bonjour à tous,

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

Et si dans la plage les valeurs min ou max sont présentes plusieurs fois, que soustrait-on ?

 

[sylvanu]

Bonsoir,

Écrivez une procédure VBA sous Excel

Et vous n'avez même pas répondu au post #2, où il y a une solution VBA !!!
Ou vous ne l'avez même pas lu !