Fonction Max suivie d'un offset

Bonjour,

La fonction max dans le Range de ma colonne ("E2:E41") me sort un résultat.

J'aimerai faire apparaître la 4eme cellules sur la gauche de cette cellules [soit l'écriture de la colonne A correspondante], ressortant max dans une autre case

Ceci afin de faire ressortir le nom de l'entreprise ayant le plus de volume et non pas le montant du volume.


Merci pour vos réponses.

Bonjour,

un exemple avec la fonction FIND, à adapter

Code:

---

1 2 3 4 5

Sub reche() Dim Plage As Range Set Plage = Worksheets("Feuil1").Range("E2:E41") MsgBox Plage.Find(Application.WorksheetFunction.Max(Plage), , , xlWhole).Offset(0, -4) End Sub

---

Merci beaucoup pour votre réponse !

grâce à celle ci j'ai réussi à obtenir le résultat escompté :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub reche()   Dim Plage As Range, i As Variant   Set Plage = Worksheets("Feuil1").Range("E2:E41")   i = Plage.Find(Application.WorksheetFunction.Max(Plage), , , xlWhole).Offset(0, -4)   Range("K2") = i   End Sub

---