XL 2019 Améliorer Function MinMax et plus grande valeur

carlos · 24 Décembre 2023

Bonjour,
J'ai créé une formule qui me permet de repartir des valeurs entre une note mini et une note maxi (Colonne C)
j'aimerais avoir une formules qui me permet par exemple de faire la meme chose mais en retirant soit les 2 plus grandes valeurs ou les 2 plus petites valeurs
MinMaxPlusGrande($B3; $B$3:$B$38; $I$1;$G$1;2)
Bonne journée

carlos · 26 Décembre 2023

Re,
j'ai améliorer la formule car elle permet maintenant d'attribuer une note aux exclus avec une variable supplémentaire.

patricktoulon · 24 Décembre 2023

Bonjour
comment doit on considérer la chose
par exemple dans ton tableau la plus grande c'est 154
vient ensuite en 2d position 148
et vient à nouveau en 3 eme position 148
Alors que fait on ?
dans le doute j'ai fait les deux

VB:

Function MinMaxPlusPetiteTwoLeft(rng As Range)
    Dim T, I&
    T = Application.Transpose(rng.Value)
    For I = 1 To UBound(T): T(I) = IIf(Val(T(I)) = 0, 0, T(I)): Next
    MinMaxPlusPetiteTwoLeft = WorksheetFunction.Small(T, 3)
End Function

Function MinMaxPlusGrandeTwoRight(rng As Range)
    Dim T, I&
    T = Application.Transpose(rng.Value)
    For I = 1 To UBound(T): T(I) = IIf(Val(T(I)) = 0, 0, T(I)): Next
    If WorksheetFunction.Small(T, UBound(T) - 3) = WorksheetFunction.Small(T, UBound(T) - 2) Then x = UBound(T) - 4 Else x = UBound(T) - 3
    MinMaxPlusGrandeTwoRight = WorksheetFunction.Small(T, x)
End Function


'************************************************************************************
'sinon si on saute les doublons

Function MinMaxPlusPetiteTwoLeft2(rng As Range)    'saute le doublons
    Dim T, I&
    T = Application.Transpose(rng.Value)
    For I = 1 To UBound(T): T(I) = IIf(Val(T(I)) = 0, 0, T(I)): Next
    If WorksheetFunction.Small(T, 3) = WorksheetFunction.Small(T, 2) Then x = 4 Else x = 3
    MinMaxPlusPetiteTwoLeft = WorksheetFunction.Small(T, 3)
End Function

Function MinMaxPlusGrandeTwoRight2(rng As Range)    'saute le doublon
    Dim T, I&
    T = Application.Transpose(rng.Value)
    For I = 1 To UBound(T): T(I) = IIf(Val(T(I)) = 0, 0, T(I)): Next
    MinMaxPlusGrandeTwoRight = WorksheetFunction.Small(T, UBound(T) - 3)
End Function

noyeux joel

carlos · 24 Décembre 2023

Bonjour Patricktoulon,
Je ne comprends pas le TWO Left
Je me suis cerrtainement mal expliqué.
J'ai mis les resultats attendus dans les colonnes du fichier joint.
Pour arriver au bon résultat, j'ai manuelllement retiré les 2 +Gdes valeurs (Rouge) et calulé les resultats avec ma function MinMax. Idem avec les 3 plus petites en vert.
J'aimerais que la fonction calcul les notes (Minis et Maxis) en retirant les 2 ou 3 ou plus des plus grandes valeurs ou plus petites valeurs
Joyeux Noel

carlos · 24 Décembre 2023

Patricktoulon, dans tout cela j'ai oublié de te remercier pour ta proposition.

carlos · 24 Décembre 2023

Petite précision : C'est une note qui est attendue et non une valeur.

patricktoulon · 24 Décembre 2023

re
imagine un array de nombre
et bien le TwoLeft c'est le 2d en partant dela gauche et le TwoRight c'est le 2d en partant de droite
et ça repond exactement a ce que tu a demandé
je te cite

j'aimerais avoir une formules qui me permet par exemple de faire la meme chose mais en retirant soit les 2 plus grandes valeurs ou les 2 plus petites valeurs

si c'est pas ça il va falloir t'exprimer intelligiblement

carlos · 24 Décembre 2023

Re,
je ne comprends pas tout de vos réponses.
Mon array serait les 3 colonnes du fichier envoyé?
Le "rng As Range" que j'ai mis dans le dernier fichier joint est il bon car il selectionne la colonne des valeurs?
Je suis perdu...
Je ne sais pas comment l'exprimer intelligiblement mieux.
Bonne nuite

carlos · 25 Décembre 2023

Bonjour ,
Pouvez vous m'aider?
Le fichier joint est plus clair je pense. ca ne marche pas.
J'ai mis dans le fichier joint l'attendu.
"j'aimerais avoir une formules qui me permet par exemple de faire la meme chose mais en retirant soit les 2 plus grandes valeurs ou les 2 plus petites valeurs"
"La meme chose " c'est le calcul de la note min et la note Maxi
" en retirant soit les 2 plus grandes valeurs" : Il y sont toujours.

Si quelqu"un peut m'aider à résoudre ce problème ce serait bien.
Cordialement

carlos · 25 Décembre 2023

J'ai pas mal avancé sur ma function.
Pour le moment elle permet de mettre la note "vide" si la valeur est exclue(trop petite ou trop grande )
Mais le probleme est qu'elle compte quand meme les 2 ou 3 plus petites ou plus grande valeur dans la note.

carlos · 26 Décembre 2023

Re,
Voici la function incomplete :
Public Function MinMaxSansNPetite(Valeurs As Variant, MaZone As Range, Minis, Maxis, N As Byte)
If IsNumeric(Valeurs) And Valeurs <> "" And Valeurs > WorksheetFunction.Small(MaZone, N) Then
MinMaxSansNPetite = Round(Minis + (Application.WorksheetFunction.Min(MaZone) - Valeurs) * (Maxis - Minis) / (Application.WorksheetFunction.Min(MaZone) - Application.WorksheetFunction.Max(MaZone)), 1)
Else
If Not IsNumeric(Valeurs) Then
MinMaxSansNPetite = Valeurs
Else
MinMaxSansNPetite = ""
End If
End If
End Function

carlos · 26 Décembre 2023

Bonjour,
J'ai enfin réussi.
Voici le fichier joint qui marche
Bonne journée

carlos · 26 Décembre 2023

Re,
j'ai améliorer la formule car elle permet maintenant d'attribuer une note aux exclus avec une variable supplémentaire.

XL 2019 Améliorer Function MinMax et plus grande valeur

carlos

XLDnaute Impliqué

Pièces jointes

carlos

patricktoulon

XLDnaute Barbatruc

carlos

XLDnaute Impliqué

Pièces jointes

carlos

XLDnaute Impliqué

carlos

XLDnaute Impliqué

Pièces jointes

patricktoulon

XLDnaute Barbatruc

carlos

XLDnaute Impliqué

carlos

XLDnaute Impliqué

Pièces jointes

carlos

XLDnaute Impliqué

Pièces jointes

carlos

XLDnaute Impliqué

carlos

XLDnaute Impliqué

Pièces jointes

carlos

XLDnaute Impliqué

Pièces jointes

Discussions similaires