Salut le forum
Deux fonctions personnalisées
Public Function Maximum(Plage As Range)
Dim cellule As Range
For Each cellule In Plage
With cellule
If .Value = Application.WorksheetFunction.Max(Plage) Then
Maximum = Format(Cells(1, .Column), "00") & "/" & Format(Month(Cells(.Row, 1)), "00") & "/" & Format(Year(Cells(.Row, 1)), "0000")
End If
End With
Next cellule
End Function
Public Function Minimum(Plage As Range)
Dim cellule As Range
For Each cellule In Plage
With cellule
If .Value = Application.WorksheetFunction.Min(Plage) Then
Minimum = Format(Cells(1, .Column), "00") & "/" & Format(Month(Cells(.Row, 1)), "00") & "/" & Format(Year(Cells(.Row, 1)), "0000")
End If
End With
Next cellule
End Function
Le fichier : Date_a_Trouver.xls
Mytå