Tri automatique avant fermeture d'un fichier

[tintin712]

Bonjour le forum.
J'aimerai avoir votre aide pour qu'un fichier soit trié automatiquement avant sa fermeture.
Je vous envoie un exemple.
Merci d'avance pour votre travail.
tintin712

 

[pierrejean]

Re : Tri automatique avant fermeture d'un fichier

bonjour

vois si cela te convient

note : j'ai supposé que c'est la feuille 1 que tu veux trier

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Feuil1").Select
    Cells.Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

 

[ChTi160]

Re : Tri automatique avant fermeture d'un fichier

Salut tintin712
Bonjour pierrejean
Bonjour le Forum

une autre version dans le Workbook_BeforeSave Lol

Le Fichier :Regarde la pièce jointe CONTACTSV1.xls

Bonne Journée

 

[tintin712]

Re : Tri automatique avant fermeture d'un fichier

Bonjour Pierrejean, Chti160 et le forum.
Merci beaucoup pour votre aide, c'est exactement ce que je recherchais.
Vous êtes compétents et cela me ravi.
Bonne journée à vous tous et à bientôt sans doute...
tintin712