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...