XL 2019 bouton pour trier un tableau

[ANTONY34200]

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

 

[Gégé-45550]

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

Bonsoir,
Voir proposition en PJ.
Cordialement,

 

[ANTONY34200]

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

 

[Gégé-45550]

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

🤣 évidemment! Il faut écrire le code du bouton pour la nouvelle feuille en prenant celui d'une des deux feuilles pour modèle !
Ça c'est le B à BA du VBA, si vous ne connaissez pas le VBA, il faut commencer par apprendre les bases.

 

[ANTONY34200]

Bonjour,
je pensais que je n'aurais pas besoin de faire plusieurs codes par feuille ...
dans un autre classeur, j'ai pu faire un code pour imprimer en PDF. et quand je duplique la feuille, le code du bouton reste inchangé.

Sub SimpleImpressionEnPDF()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\MEGAPORT\desktop\a envoyer\" & "PCB PRESTA - " & [d7] & " - Frais de route - " & [a3] & " " & [d3] & ".pdf", Quality:=xlQualityStandard, _
  IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

 

[ANTONY34200]

Ou alors, je réfléchi a faire un bouton pour l'ensembles des feuilles, car mon fichiers va etre evolutif en fonction des besoins

 

[ANTONY34200]

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

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.

Bonjour,
je viens de mettre le code, et message d'erreur :

 

[Dranreb]

Bonjour.
Pour réappliquer le dernier ordre de tri défini, cette macro suffit :

Sub Bouton1_Cliquer()
   ActiveSheet.ListObjects(1).Sort.Apply
   End Sub

 

[sylvanu]

Re,
J'ai vu cette erreur après avoir posté.
Je vais regarder où est l'erreur. 😡

Merci Dranreb, c'est la piste que je cherchais ... en vain. 🙂

 

[ANTONY34200]

Gégé-45550, sylvanu, Dranreb
Merci d'avoir contribué à mon fichier.