Discussion :

[Phil.D]

Bonjour,

Je cherche à obtenir un tri rapide d'une liste sur un critère simple.
La macro enregistrée me donne notamment la ligne suivante parmi d'autres ...

Code :

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

1
2
3
ActiveWorkbook.Worksheets("LISTE").ListObjects("Tableau2").Sort.SortFields. _
        Add2 Key:=Range("B4:B156"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortTextAsNumbers

L'idée est de pouvoir appliquer ce tri en fonction de la colonne de la cellule active (pas nécessairement colonne B)

Je bloque un peu sur la syntaxe pour définir correctement le Range en utilisant une variable 'col' par ex

Merci d'avance pour votre aide

Phil.D

[rMist2024]

Essaie ce code:

Code :

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

1
2
3
4
5
6
7
8
 If Not Intersect(Range("Tableau"), ActiveCell) Is Nothing Then ' si la  cellule active est dans le tableau
    With Range("Tableau").ListObject.Sort
        .SortFields.Clear
        .SortFields.Add Key:=ActiveCell
        .Header = xlYes 
        .Apply
    End With
  End If

[Philippe Tulliez]

Bonjour,
J'ai écrit un billet avec publication du code d'une fonction générique, titré VBA Excel - Fonction générique - Trier un objet ListObject (Tableau structuré)

[Phil.D]

Re bonjour et MERCI à tous les 2 pour votre aide à la fois rapide et surtout efficace.

Vu mon niveau actuel, j'ai plongé sur la solution courte proposée par rMist2024 qui fonctionne parfaitement.
Mais je me promets dans un second temps d'essayer de comprendre aussi la fonction générique proposée par Ph.Tulliez

Encore MERCI à vous 2