XL 2019 Tri de liste vba. Résolu

Paulle · 9 Juin 2021

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 · 9 Juin 2021

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

VB:

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 · 9 Juin 2021

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

XL 2019 Tri de liste vba. Résolu

Paulle

XLDnaute Occasionnel

Pièces jointes

Lolote83

XLDnaute Barbatruc

Paulle

XLDnaute Occasionnel

Discussions similaires