Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment trier les données de colonne en cliquant sur l'en-tête dans Excel?

Supposons que j'ai une plage de données, maintenant, je voudrais trier les données dans l'ordre croissant ou décroissant en cliquant sur n'importe quel en-tête de colonne pour obtenir la capture d'écran suivante. Comment pourriez-vous résoudre ce travail dans Excel?

doc trier par clic 1

Trier les données en cliquant sur l'en-tête de la colonne avec le code VBA


flèche bleue droite bulle Trier les données en cliquant sur l'en-tête de la colonne avec le code VBA

Normalement, dans Excel, vous pouvez appliquer la fonction Trier pour trier les données rapidement et facilement, mais, pour trier les données en cliquant simplement sur une cellule, le code VBA suivant peut vous rendre service.

1. Cliquez avec le bouton droit sur l'onglet de la feuille que vous souhaitez trier les données en cliquant sur une cellule, puis choisissez Voir le code à partir du menu contextuel, et dans le Microsoft Visual Basic pour les applications fenêtre, copiez et collez le code suivant dans le module vide:

Code VBA: Trier les données en cliquant sur une cellule ou un en-tête de colonne:

Public blnToggle As Boolean
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice 20161123
Dim LastColumn As Long, keyColumn As Long, LastRow As Long
Dim SortRange As Range
LastColumn = _
Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
keyColumn = Target.Column
If keyColumn > LastColumn Then Exit Sub
Application.ScreenUpdating = False
Cancel = True
LastRow = Cells(Rows.Count, keyColumn).End(xlUp).Row
Set SortRange = Target.CurrentRegion
blnToggle = Not blnToggle
If blnToggle = True Then
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlAscending, Header:=xlYes
Else
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlDescending, Header:=xlYes
End If
Set SortRange = Nothing
Application.ScreenUpdating = True
End Sub

doc trier par clic 2

2. Et puis enregistrez et fermez la fenêtre de code, maintenant, lorsque vous double-cliquez sur une cellule ou un en-tête de colonne dans la plage de données, la colonne sera triée par ordre croissant, si vous double cliquez dessus, la colonne sera triée immédiatement.


Plus d'articles connexes:

Comment changer la valeur de la cellule en cliquant sur la cellule?

Comment filtrer les données en cliquant simplement sur le contenu des cellules dans Excel?



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.