XL 2016 Trouver colonne d'une valeur minimum

[Phillip]

Bonjour,

Je souhaite, par macro ou formule, trouver la valeur minimum dans une ligne, et dans une colonne à droite, mettre le nom du joueur qui a eu ce minimum de points.

Je tourne en rond, et me mélange les index et les equiv...

Quelqu'un peut-il m'aider ?

Fichier exemple joint

Merci

Cordialement

 

[job75]

Bonjour Phillip, le forum,

En F2 :

=INDEX(B$1:D$1;EQUIV(MIN(B2:D2);B2:D2;0))

Que faut-il indiquer si 2 ou 3 joueurs ont le même score ?

A+

 

[job75]

Que faut-il indiquer si 2 ou 3 joueurs ont le même score ?

On peut concaténer les noms, formule matricielle en F2 :

=INDEX($1:$1;PETITE.VALEUR(SI(B2:D2=MIN(B2:D2);COLONNE(B2:D2));1))&SIERREUR(", "&INDEX($1:$1;PETITE.VALEUR(SI(B2:D2=MIN(B2:D2);COLONNE(B2:D2));2));"")&SIERREUR(", "&INDEX($1:$1;PETITE.VALEUR(SI(B2:D2=MIN(B2:D2);COLONNE(B2:D2));3));"")

à valider par Ctrl+Maj+Entrée.

 

[job75]

Maintenant avec une fonction VBA c'est assez simple :

Function Elimine(joueurs As Range, valeurs As Range, sep As String) As String
Dim mini, i, a(), n
mini = Application.Min(valeurs)
For i = 1 To valeurs.Count
    If valeurs(i) = mini Then
        ReDim Preserve a(n) 'base 0
        a(n) = joueurs(i)
        n = n + 1
    End If
Next
If n Then Elimine = Join(a, sep)
End Function

Le code doit être placé impérativement dans un module standard.

Formule en F2 :

=Elimine(B$1:D$1;B2:D2;", ")

 

[Phillip]

Merci ! En effet, on peut se poser la question si deux joueurs ont le même score, mais pour l'instant, ça me va très bien comme ça ! Bravo !

Cordialement

phillip