Classer vos données

Lors de vos traitements de données, vous aurez souvent à effectuer des tris. Il peut être intéressant d’utiliser une macro pour effectuer rapidement des classements.

Afin de nous simplifier les futurs tris, notre objectif est d’avoir uniquement à effectuer les actions suivantes :

  • cliquer dans la colonne à trier.

  • exécuter un raccourci-clavier (CtrlShift J par exemple).

Notre macro devra donc sélectionner la plage, reconnaître sur quelle colonne trier puis effectuer le tri.

 Ouvrez le classeur ListeEmployes.xlsx.

 Affichez le classeur de macros personnelles.

 Insérez le code ci-après dans un module du classeur de macros personnelles (il se trouve dans le fichier Sub Tri.txt).


Sub TriCol() 
Dim NumCol As Integer, PlageActive As Range 
Set PlageActive = ActiveCell.CurrentRegion 
NumCol = ActiveCell.Column 
With ActiveWorkbook.ActiveSheet.Sort 
    .SortFields.Clear 
    .SetRange PlageActive 
    .Header = xlYes 
    .MatchCase = False 
    .SortFields.Add Key:=Cells(, NumCol), SortOn:=xlSortOnValues, 
Order:=xlAscending 
    .Orientation = xlTopToBottom 
    .Apply 
End With 
End Sub
 

 Quittez l’éditeur VBA puis sauvegardez le classeur de macros personnelles.

La dernière étape consiste à attribuer un raccourci-clavier à la macro de tri.

 Onglet Développeur - groupe...

Pour consulter la suite, découvrez le livre suivant :
couv_SOB16EXCBOR.png
60-signet.svg
En version papier
20-ecran_lettre.svg
En version numérique
41-logo_abonnement.svg
En illimité avec l'abonnement ENI
130-boutique.svg
Sur la boutique officielle ENI
Précédent
Les macros de retraitement
Suivant
Envoi d'une feuille du tableau de bord par Outlook