Discussion :

[Nat's]

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.

[joe.levrai]

Bonjour,

un exemple avec la fonction FIND, à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Nat's]

Merci beaucoup pour votre réponse !

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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