XL 2019 bouton pour trier un tableau

ANTONY34200 à dit:

Bonjour le forum,
Je cherche un code VBA à intégrer à un bouton pour trier un tableau par ordre croissant en fonction d'une colonne. Ici c'est la colonne A qui est a trier ...
Merci d'avance pour le coup de main

Cliquez pour agrandir...

ANTONY34200 à dit:

Bonjour GéGé-45550,
je viens de tester, ca fonctionne bien. par contre si je duplique 1 feuille, le bouton ne fonctionne plus sur la nouvelle feuille ...

Cliquez pour agrandir...

sylvanu à dit:

Bonjour Antony, Gégé,
Peut être en utilisant des paramètres globaux avec :

VB:

Sub Bouton_Cliquer()
    SortColA ActiveSheet, ActiveSheet.ListObjects(1).Name
End Sub

ActiveSheet donne la feuille active
ActiveSheet.ListObjects(1).Name donne le nom du tableau de la feuille active.
( en supposant qu'il n'y ait qu'un tableau par feuille )
De cette façon la macro est la même quelle que soit la feuille.

Cliquez pour agrandir...