Macro de tri pour le pense-bête

Il y a quatre jours, je vous ai présenté mon modèle de pense-bête. Il ne restait plus qu’à lister la macro qui effectue le tri de la liste en ordre de priorité décroissante. Voici cette macro :

Sub Tri()
'
' Macro de tri créée par Hervé Thiriez
'
Cells.Select
Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Range("A1").Select
End Sub

Et voici le résultat :

Remarque 1 – Sélection de la feuille

La première commande sélectionne la feuille entière, ce qui ne pose pas de problème ici puisqu’il n’y a rien d’autre dans cette feuille que le pense-bête.

Remarque 2 – L’option « Header »

Quand vous enregistrez une macro de ce genre, Excel enregistre de façon automatique l’option « Header:=xlGuess », ce qui pose souvent des problèmes quand on utilise la macro par la suite.

En effet, selon le contenu de la première ligne, Excel peut la considérer ou non comme un titre. Il est donc essentiel, quand on retouche une telle commande pour finaliser la macro, de remplacer cette option, selon le cas, par « Header:=xlYes » ou par « Header:=xlNo ».