Microsoft 365 Tri automatique

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
182
Réponses
4
Affichages
221
Retour