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

terry08200 · 2 Septembre 2021

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.

job75 · 2 Septembre 2021

Bonsoir à tous,

terry08200 à dit:
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 :

VB:

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

A+

sylvanu · 2 Septembre 2021

Bonjour Terry,
Vous avez essayez simplement :

VB:

=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 · 2 Septembre 2021

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 · 2 Septembre 2021

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

Phil69970 · 2 Septembre 2021

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

VB:

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

Tu n'as pas répondu à ce post

@Phil69970

terry08200 · 2 Septembre 2021

Phil69970 à dit:
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

VB:

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 · 2 Septembre 2021

Bonsoir à tous,

terry08200 à dit:
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 :

VB:

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

A+

terry08200 · 3 Septembre 2021

Merci infiniment

job75 à dit:
Bonsoir à tous,

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

VB:

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

A+

Merci infiniment Job !!

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

terry08200

XLDnaute Nouveau

job75

sylvanu

XLDnaute Barbatruc

terry08200

XLDnaute Nouveau

terry08200

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

terry08200

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

terry08200

XLDnaute Nouveau

Discussions similaires