Macro Trier

bonsoir chers tous

Jai des bases de données que je renseigne via le meme USF.

J'aimerais grace a un bouton sur mon USF trier au besoin la colonne des Mois selon la date la plus récente a la plus ancienne.

Merci

Bonjour,

à tester,

Private Sub CommandButton1_Click()
With Sheets("ds")
.Range("A2:F" & .Range("A" & Rows.Count).End(xlUp).Row).Sort key1:=.Range("B2"), order1:=xlDescending
End With
End Sub

C'est super.

Mais le souci c'est que je serai obligé de créer un bouton pour chaque base de données.

A partir d'un seul bouton sur mon USF j'aimerais pouvoir trier la feuille active.

J'ai essayé ceci :

With ActiveSheet

.Range("A2:F" & .Range("A" & Rows.Count).End(xlUp).Row).Sort key1:=.Range("B2"), order1:=xlDescending

End With

Mais ça semble pas correct parce que ça marche pas. Corrigez-moi SVP !

re,

à tester,

Private Sub CommandButton1_Click()
Range("A2:J" & Range("B" & Rows.Count).End(xlUp).Row).Sort key1:=Range("A2"), order1:=xlDescending
End Sub

Merci Infiniment !!!!!