Bonjour.


Je cherche désespérément à convertir cette formule en VBA
=max(if(A1:A5="TOTO",B1:B5))

Je cherche à trouver la date la plus récente qui correspond à TOTO.

A B
TOTO 2012-01-01
TATI 2011-02-02
TOTO 2011-05-05
TATA 2012-02-01
TATI 2011-04-01

Pour le moment j’ai ceci.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub test()
 
Dim rng1 As Range
Dim rng2 As Range
Dim DateOK As date
 
Set rng1 = Range("A1:A5")
Set rng2 = Range("B1:B5")
 
DateOK = Application.WorksheetFunction.Max(rng1, "TOTO", rng2)
Msgbox DateOK
 
End Sub

Il semble que la fonction WorksheetFunction.Max n’accepte pas les criteres de recherche TOTO

Je suis perdu.

Merci