TRI à 'géométrie variable'

Version imprimable

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:

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

Essaie ce code:

Code:

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

26/03/2025, 08h10
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é)
26/03/2025, 13h42
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