Microsoft 365 Tri automatique

Christian53

XLDnaute Nouveau
J'ai 2 feuilles (ACCUEIL et TEST)
Sur la feuille TEST j ai un tableau (format tableau)
Je souhaiterais que quand je sélectionne la feuille TEST, le tri sur la colonne VILLE du tableau (A_Z) se fasse automatiquement.
Merci de votre aide.
Fichier joint
 

Pièces jointes

  • fichierTest.xlsx
    10.5 KB · Affichages: 1
Solution
Tour d'abord Bonsoir Christian,
E PJ un essai issu en partie de l'enregistreur de macro,avec :
VB:
Sub Worksheet_Activate()
    Application.CutCopyMode = False
    Range("Tableau1[[#All],[Ville]]").Select
    ActiveWorkbook.Worksheets("TEST").ListObjects("Tableau1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("TEST").ListObjects("Tableau1").Sort.SortFields.Add _
        Key:=Range("Tableau1[Ville]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With Sheets("TEST").ListObjects("Tableau1").Sort
        .Header = xlYes
        .Apply
    End With
    [A1].Select
End Sub
Cette macro s'exécute lorsqu'on sélectionne la feuille Test.

sylvanu

XLDnaute Barbatruc
Supporter XLD
Tour d'abord Bonsoir Christian,
E PJ un essai issu en partie de l'enregistreur de macro,avec :
VB:
Sub Worksheet_Activate()
    Application.CutCopyMode = False
    Range("Tableau1[[#All],[Ville]]").Select
    ActiveWorkbook.Worksheets("TEST").ListObjects("Tableau1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("TEST").ListObjects("Tableau1").Sort.SortFields.Add _
        Key:=Range("Tableau1[Ville]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With Sheets("TEST").ListObjects("Tableau1").Sort
        .Header = xlYes
        .Apply
    End With
    [A1].Select
End Sub
Cette macro s'exécute lorsqu'on sélectionne la feuille Test.
 

Pièces jointes

  • fichierTest.xlsm
    15.7 KB · Affichages: 2

Statistiques des forums

Discussions
312 228
Messages
2 086 421
Membres
103 205
dernier inscrit
zch