Classer vos données MACROS:Classer les 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.

 Ouvrez l’éditeur VBA.

 Affichez le classeur de macros personnelles : dans le volet Projet, déroulez VBAProject (PERSONAL.XLSB) et double cliquez sur le module.

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

Découvrez 

le livre :

Aussi inclus dans nos :

Précédent
Les macros de retraitement
Suivant
Envoi d'une feuille du tableau de bord par Outlook