trier tableau structuré

Version imprimable

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:

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:

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.

12/03/2021, 16h39
78chris
Bonjour

C'est un peu court jeune homme !
Code:

1 2 For Each LO In WS.ListObjects LO.Sort.SortFields.Clear

J'avance tout doucement, mais cela coince...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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.ListObjects
    With LO.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("LO"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
        .Header = xlYes
        .MatchCase = False
        .SortMethod = xlPinYin
        .Apply
    End With
Next LO

Bonjour

Code:

1
2
3
4
5
6
7
8
9
    With LO.Sort
        .SortFields.Clear
        .SortFields.Add Key:=LO.ListColumns("Funds Center").Range, _
         SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .Apply
    End With