XL 2010 calcul et message en VBA

ABIDI JIJI · 6 Janvier 2023

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 · 6 Janvier 2023

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

ABIDI JIJI · 6 Janvier 2023

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

Phil69970 · 6 Janvier 2023

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 · 6 Janvier 2023

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

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

mapomme · 6 Janvier 2023

Bonjour à tous,

ABIDI JIJI à dit:
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 · 12 Janvier 2023

Bonsoir,

ABIDI JIJI à dit:
É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 !

XL 2010 calcul et message en VBA

ABIDI JIJI

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

ABIDI JIJI

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

ABIDI JIJI

XLDnaute Nouveau

mapomme

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Discussions similaires