Bonjour,

Etant novice en VBA, je me retourne vers vous.

J'ai une feuille qui comporte plusieurs tableaux structurés et souhaite faire une macro qui trie tous les tableaux lorsque l'on quitte cet onglet.

J'ai réussi via l'enregistreur pour un tableau structuré :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Application.Goto Reference:="T_AB"
    ActiveWorkbook.Worksheets("Param").ListObjects("T_AB").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Param").ListObjects("T_AB").Sort.SortFields.Add Key _
        :=Range("T_AB[Funds Center]"), SortOn:=xlSortOnValues, Order:=xlAscending _
        , DataOption:=xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Param").ListObjects("T_AB").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
J"ai commencé ce code pour l'ensemble des listobject mais... la suite
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Dim WK As Workbook
Dim WS As Worksheet
Dim LO As ListObject
 
Set WK = ThisWorkbook
Set WS = WK.Worksheets("Param")
 
 
    For Each LO In WS
        .Sort.SortFields.Clear
    Next LO
Merci pour votre aide.