Comment rechercher date superieur a aujourd'hui

[rlouis]

Je recherche comment faire apparaitre a l'ouverture d'une feuille la date
superieur et la plus proche a aujourd'hui dans une feuille de plus X dates.
Merci.

 

[Thierry]

Salut Louis,

Un peu plus de détails ne serait pas un luxe.....

Enfin je suppose (j'imagine) que tu as un tableau du style :

Colonne 1 | Colonne 2 | Colonne 3 etc etc
01/10/02 Facture 1212 M.dupont etc etc
08/10/02 Facture 1213 M.dupuis etc etc
05/10/02 Facture 1212 M.dutrain etc etc
21/10/02 Facture 1214 M.durand etc etc
31/10/02 Facture 1215 M.ducoint etc etc
etc etc

Et qu'à l'ouverture tu veux trouver tes facture les plus récentes triées ?

La solution la plus simple est un "Sort Descending", qui mettra en haut du tableau les dates supérieures... Ci-dessous un code qui fait çà auto à l'ouverture du classeur...

En VBA / module ThisWorkbook

Private Sub Workbook_Open()
Worksheets("sheet1").Range("A1").Select
Selection.CurrentRegion.Select
Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, header:=xlYes
End Sub

Est-ce que çà convient ?

@+Thierry