XL 2016 Macro tri sur date

Staple1600

XLDnaute Barbatruc

• 21 Mai 2018

• #2

Bonjour le fil, le forum

@Trishia
Une possibilité de macro

Code:

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" 😉

VB:

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

 

Vote positif 0 Vote négatif

T

Trishia

Guest

• 23 Mai 2018

• #3

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.

 

Pièces jointes

• Tri_date.xlsm

  18.6 KB · Affichages: 32

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 23 Mai 2018

• #4

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

VB:

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

 

Vote positif 0 Vote négatif

T

Trishia

Guest

• 13 Juin 2018

• #5

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

 

Vote positif 0 Vote négatif