Tri par ordre de date avec bouton

Bonjour

Pour faciliter la tâche aux usager d'un classeur, j'ai un bouton qui remet le filtre à zéro lequel fonctionne très bien.

On me demande s'il serait possible d'ajouter au bouton la commande Tri par date.

Il s'agit de trier par ordre croissant les colonnes A@J, les dates étant dans le colonne B.

Au module:

Sub Bouton1_QuandClic()

    ActiveSheet.AutoFilterMode = False
    If Sheets("Demandes").Activate Then

        Range("A4:J4").Select
        Selection.AutoFilter

    End If

End Sub

Au Woorbook:

Private Sub Workbook_Open()

If Sheets("Demandes").Activate Then
    Range("A4:J4").Select
    Selection.AutoFilter
End If

End Sub

Merci beaucoup.

Salut VDMICHEL,

voici le code. A toi de le ranger où bon te semble... après avoir rectifié l'adressage, bien sûr.

Ici, la macro trie de [A2] à [J & ?] en fonction de la hauteur de colonne [B].

'
'
Range("A2:J" & Range("B" & Rows.Count).End(xlUp).Row).Sort key1:=Range("B2"), order1:=xlAscending
'

A+

Bonjour curulis57,

merci pour le code.

Il fonctionne très parfaitement pour le bouton, mais n'est pas effectif dans le Workbook (BeforeSave ou BeforeClose, par exemple)!

Cordialement

Bonjour curulis57

problème résolu. Changement de séquence du code.

Merci encore pour le code.

A+