max d'une ligne et adressage

[Tmumu]

Bonjour,

Dans la feuille suivante je souhaite mettre dans la colonne H le lieu ou la personne a obtenu le meilleur score.

Quelle formule dans la macro peux me renvoyer la collonne j qui corresponds à ce maximun?

Et comment écrire en H i le non qui se trouve en B j?

Merci

 

[SergiO]

Re : max d'une ligne et adressage

Bonjour tmumu,

Voici une formule à mettre en H4 et à recopier vers le bas:
=INDEX($B$3:$F$3;1;EQUIV(MAX(B4:F4);B4:F4;0))

@+

 

[SergiO]

Re : max d'une ligne et adressage

Re,

Je n'avais pas vu le VBA, voici le code modifié:

Sub Macro1()
Dim linfin As Variant
Dim x As Single

linfin = Range("a65536").End(xlUp).Row

For i = 4 To linfin
    
x = Application.Max(Range("b" & i & ":e" & i))
xCol = Range("b" & i & ":e" & i).Find(what:=x).Column

Cells(i, 7).Value = x
Cells(i, 8).Value = Cells(3, xCol)

Next i

 

[Tmumu]

Re : max d'une ligne et adressage

2 fois Bravo !