Discussion :

[rossemma]

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.

[78chris]

Bonjour

C'est un peu court jeune homme !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[rossemma]

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

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

[78chris]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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