Discussion :

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim der As Long
Dim Plage As Range, c As Range
With Worksheets("graphique")
    der = .Range("J65536").End(xlUp).Row  'ICI
    Set Plage = .Range("J3:J" & der)
    mf = Application.WorksheetFunction.Max(Plage)
    Set c = Plage.Find(mf, LookIn:=xlFormulas, lookat:=xlWhole) 'ICI
    If Not c Is Nothing Then MsgBox c.Offset(0, -1).Value
End With
Set c = Nothing
Set Plage = Nothing

[karim19]

MERCI MERCATOG et vous autres que je n'oublie pas Abed_H , aalex_38