XL 2016 Macro tri sur date

[Trishia]

Bonjour,
Je souhaite effectuer un tri décroissant depuis la date du jour, il me faut donc :
1. trouver la cellule correspondant à la date du jour (cellule variable)
2. effectuer le tri
Pouvez-vous svp m'aider ?
Ci-joint mon fichier test.
Merci d'avance.

 

[Staple1600]

Bonjour le fil, le forum

@Trishia
Une possibilité de macro

Sub Tri_Date()
Dim Col&
Col = Rows(1).Find(Date).Column
Range("A1").CurrentRegion.Sort Cells(1, Col), xlDescending
End Sub

La même version "light" 😉

Sub Tri_DateII()
[A1].CurrentRegion.Sort Rows(1).Find(Date), 2
End Sub

 

[Trishia]

Bonjour JM,
Merci pour ce retour mais malheureusement cela ne fonctionne pas et je ne comprends pas pourquoi.
J'ai modifié le format date pensant qu'il n'était pas reconnu mais pas mieux.

 

[Si...]

Bon_soir
Rajoute l'exclusion de la ligne d'en-têtes (Header)

Sub Tri_DateII()
  [A1].CurrentRegion.Sort Rows(1).Find(Date), 2, Header:=1
End Sub

 

[Trishia]

Bonjour,
Un message "Erreur d'execution '5': Argument ou appel de procédure incorrect" s'affiche...
Je vais continuer de chercher.