[Toutes versions] MAX fonction en VBA

MAX fonction en VBA

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:

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

Bonjour

essaies

Code:

1
2
date_recente = [Max(If(A1:A5="TOTO",B1:B5 ))]
MsgBox Format(date_recente, "dd/mm/yyyy")

Bonjour,

Autre solution :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub totorecent()
 
Sheets("nomdetapage").Select
 
Dim recent As String
 
Range("E1").FormulaLocal = "=GRANDE.VALEUR(A1:B65000;NB.SI(A1:B65000; ""=""&""TOTO"")+1)" ' recherche de la date la plus recente
Selection.NumberFormat = "m/d/yyyy" 'mettre la case au format date
recent = Cells(1, 5) ' Variable de la date la plus recente
MsgBox recent
 
End Sub

A bientot

Citation:
Envoyé par Michel_M
Bonjour

essaies
Code:

1 2 date_recente = [Max(If(A1:A5="TOTO",B1:B5 ))] MsgBox Format(date_recente, "dd/mm/yyyy")
C'était si simple....

Merci Michel

Oups! J'aimerai utiliser des variables.
Code:

1 2 3 4 5 6 7 8 9 Dim rng1, rng2 As Range dim cherche Set rng1 = Range("A1:A5") Set rng2 = Range("B1:B5") cherche = "TOTO" date_recente = [Max(If(rng1=cherche,rng2 ))] MsgBox Format(date_recente, "dd/mm/yyyy")
Incompatibilité de type???

Y a-t-il une solution?

Merci

Bonjour,
sans variables range

Code:

1
2
3
4
5
6
7
8
9
Dim rng1 as string, rng2 As string
dim cherche
 
rng1 = Range("A1:A5").address
rng2 = Range("B1:B5").address
cherche = "TOTO"
 
date_recente = [Max(If(rng1=cherche,rng2 ))]
MsgBox Format(date_recente, "dd/mm/yyyy")

ou

Code:

1
2
3
4
5
6
7
8
9
Dim rng1, rng2 As Range
dim cherche
 
Set rng1 = Range("A1:A5")
Set rng2 = Range("B1:B5")
cherche = "TOTO"
 
date_recente = [Max(If(range(rng1.Address)=cherche,rng2 ))]
MsgBox Format(date_recente, "dd/mm/yyyy")

non testé

Bonjour,

Avec des variables il faut utiliser la syntaxe "evaluate" et non les crochets...
cette syntaxe est délicate (ce qui explique mon retard!:lol:)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub essai_evaluate(Rng1, Rng2, Cherche) Dim DateOK As Long DateOK = Evaluate("Max(if(" & Rng1 & "= """ & Cherche & """," & Rng2 & "))") MsgBox Format(DateOK, "dd/mm/yyyy") End Sub Sub test3() Rng1 = "A1:A5" Rng2 = "B1:B5" valeur = "TOTO" essai_evaluate Rng1, Rng2, valeur End Sub