XL 2019 Tri de liste vba. Résolu

[Paulle]

Bonjour,

Je me suis lancé dans un programme de gestion compte personnel pour me familiariser avec Excel.

Mais j'ai besoin de votre aide. Je fais le tri des listes dans la Feuil4(Listes) avec du vba. J'ai fait le code pour les premières listes, mais avant de continuer pour les autres, il est certainement possible de simplifier le code. Et c'est là que j'aurai besoin d'aide.

Merci.

 

[Lolote83]

Bonjour PAULLE,
Avec ce code qui tourne 9 fois (car 9 tableaux) cela devrait le faire

Sub Tri()
    For F = 1 To 9
        Select Case F
            Case Is = 1
                xNomTableau = "Tableau27"
            Case Is = 2
                xNomTableau = "Tableau26"
            Case Is = 3
                xNomTableau = "Tableau1"
            Case Is = 4
                xNomTableau = "Tableau4"
            Case Is = 5
                xNomTableau = "Tableau24"
            Case Is = 6
                xNomTableau = "Tableau23"
            Case Is = 7
                xNomTableau = "Tableau22"
            Case Is = 8
                xNomTableau = "Tableau21"
            Case Is = 9
                xNomTableau = "Tableau20"
        End Select
        xNomEntete = Range(xNomTableau & "[#Headers]")
       
        ActiveWorkbook.Worksheets("Listes").ListObjects(xNomTableau).Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("Listes").ListObjects(xNomTableau).Sort.SortFields.Add2 Key:=Range(xNomTableau & "[[#All],[" & xNomEntete & "]]"), SortOn:=xlSortOnValues, _
            Order:=xlAscending, DataOption:=xlSortNormal
        With ActiveWorkbook.Worksheets("Listes").ListObjects(xNomTableau).Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    Next F
End Sub

@+ Lolote83

 

[Paulle]

Merci Lolote, ça fonctionne parfaitement.
J'ai juste dû créer les variables. Chose que je n'avais jamais fait.