Microsoft 365 [VBA] Recherche date la plus ancienne [RESOLU]

[terry08200]

Bonjour à tous,

Encore une fois j'ai besoin de vous...

En colonne B j'ai plein de date ... de B2 jusque B300.
Je veux sélectionner la plus ancienne.
Je précise que les valeurs sont en format Date.


Bien à vous !
Merci d'avance, Terry.

 

[sylvanu]

Bonjour Terry,
Vous avez essayez simplement :

=MIN(B2:B300)

La date pour XL n'est qu'un nombre, par ex aujourd'hui correspond à 44441 , la plus ancienne date est donc le nombre le plus faible.

 

[terry08200]

Bonsoir Sylvanu,

Je cherche une solution en VBA

Je cherche sur internet mais rien ne me correspond, je dois vraiment faire comme dans l'explication.

Je sais définir la plage et sélectionner, mais je ne sais vraiment pas trouver la valeur la plus ancienne.
je vais essayer de trouver une alternative...

Terry

 

[terry08200]

j'ai pensé convertir en format nombre et sélectionner la plus élevé ... mais pas de correspondance, c'est pas si simple

 

[Phil69970]

Bonjour @terry08200 , Sylvain

en Vb je te propose :
Si tu veux le résultat en C1 par exemple et que tes dates sont en B1 à B300

Sub RechDate()
[C1] = CDate(WorksheetFunction.Min([B1:B300]))
End Sub

Tu n'as pas répondu à ce post

@Phil69970

 

[terry08200]

Bonjour @terry08200 , Sylvain

en Vb je te propose :
Si tu veux le résultat en C1 par exemple et que tes dates sont en B1 à B300

Sub RechDate()
[C1] = CDate(WorksheetFunction.Min([B1:B300]))
End Sub

Tu n'as pas répondu à ce post

@Phil69970

Bonsoir Phil,

Mmmm je ne sais pas comment te dire, tu es un AS !!!

Merci, je vais édit en résolu .

Bonne soirée et bon EXCEL !!

 

[job75]

Bonsoir à tous,

En colonne B j'ai plein de date ... de B2 jusque B300.
Je veux sélectionner la plus ancienne.

En VBA sélectionner est en général inutile voire nuisible mais bon voyez cette macro :

Sub Plus_ancienne()
Range("B" & Application.Match(Application.Min([B2:B300]), [B:B], 0)).Select
End Su

A+

 

[terry08200]

Merci infiniment

Bonsoir à tous,

En VBA sélectionner est en général inutile voire nuisible mais bon voyez cette macro :

Sub Plus_ancienne()
Range("B" & Application.Match(Application.Min([B2:B300]), [B:B], 0)).Select
End Su

A+

Merci infiniment Job !!