Discussion :

[Stefane1969]

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

[Michel_M]

Bonjour

essaies

Code :

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

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

[franckaooo]

Bonjour,

Autre solution :

Code :

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

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

[Stefane1969]

Bonjour

essaies

Code :

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

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 :

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

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

[casefayere]

Bonjour,
sans variables range

Code :

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

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 :

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

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é

[Michel_M]

Bonjour,

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

Code :

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

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