Bonjour,
Sur différentes feuilles de calcul j'ai des tableaux (6 au total)
Chaque tableau à 2 colonnes (ex 'Type' et 'Nbre') et j'ai besoin de classer les données de ces tableaux de façon automatique en triant la colonne 'Nbre' du + grand vers le + petit.
Je peux utiliser "Trier" dans excel mais cela m'oblige à le faire manuellement pour les 6 tableaux à chaque modification.

J'ai donc utilisé l'enregistreur de Macro et il m'a sorti celle ci, que j’appelle lors d'une modification sur ma feuille :

Exemple : Pour le tableau nommé "Num_Lundi" sur ma feuille "Lundi-Mardi"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Actualisation()
 
' TRI DE NUM_LUNDI
    ActiveWorkbook.Worksheets("Lundi-Mardi").ListObjects("Num_Lundi").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Lundi-Mardi").ListObjects("Num_Lundi").Sort. _
        SortFields.Add2 Key:=Range("Num_Lundi[Nbre]"), SortOn:= _
        xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Lundi-Mardi").ListObjects("Num_Lundi").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End sub
Cette macro se répète donc 6 fois pour trier tous des tableaux.
Auriez vous une solution pour simplifier cette automatisation de tri ?