Note: The other languages of the website are Google-translated. Back to English

Comment trier les données sur plusieurs feuilles de calcul à la fois?

Dans Excel, nous pouvons trier les données dans une feuille de calcul en fonction d'une colonne spécifique rapidement et facilement, mais avez-vous déjà essayé de trier les données sur plusieurs feuilles de calcul? Les trier un par un prendra du temps, cet article, je vais vous présenter un moyen simple de le résoudre.

Trier les données sur plusieurs feuilles de calcul à la fois avec le code VBA


flèche bleue bulle droite Trier les données sur plusieurs feuilles de calcul à la fois avec le code VBA

Pour trier les données en fonction d'une colonne dans toutes les feuilles de votre classeur, le code VBA suivant peut vous aider.

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: trier les données sur plusieurs feuilles de calcul à la fois:

Sub SortAllSheets()
   'Updateby Extendoffice
   Dim WS      As Worksheet
   ActiveSheet.Range("a1:f1").Select
   Selection.Copy
   On Error Resume Next
   Application.ScreenUpdating = False
   For Each WS In Worksheets
      WS.Columns("A:F").Sort Key1:=WS.Columns("E"), Order1:=xlDescending
   Next WS
   ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteAll
   Application.ScreenUpdating = True
End Sub

3. Puis appuyez F5 clé pour exécuter ce code, toutes les feuilles qui ont la même mise en forme ont été triées en fonction de la colonne E de chaque feuille dans l'ordre décroissant à la fois.

Notes: Dans le code ci-dessus, UN F est la plage de données que vous souhaitez trier, E est la lettre de la colonne sur laquelle vous souhaitez trier.


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Commentaires (10)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Ça ne marche pas ...
Toujours
Ce commentaire a été minimisé par le modérateur sur le site
Comment puis-je faire en sorte que cela fonctionne pour plusieurs colonnes. J'essaie de trier certains par la colonne K et d'autres par la colonne M et je connais les numéros de feuille exacts. Ma colonne M (lorsque j'utilise le code ci-dessus) n'est triée que par le K, pas par M, donc cela ne fonctionne pas. 
Jon Cole
Ce commentaire a été minimisé par le modérateur sur le site
a fonctionné comme un charme pour moi... merci!
Fabrev
Ce commentaire a été minimisé par le modérateur sur le site
fonctionne bien mais comment puis-je éviter d'inclure les titres (c'est-à-dire la ligne 1 ?)
lucy
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Lucie,
Pour trier toutes les feuilles en excluant la ligne d'en-tête, veuillez appliquer le code vba ci-dessous : (Remarque : veuillez modifier les références de cellule en fonction de vos besoins)

Sous SortAllSheets()
'Mettre à jour par Extendoffice
Dim WS As Worksheet
Dim xIntR As Integer
ActiveSheet.Range("A1:F1").Sélectionner
On Error Resume Next
Application.ScreenUpdating = Faux
Pour chaque WS dans Worksheets
xIntR = Intersection(WS.UsedRange, WS.Range("A:F")).Rows.Count
WS.Range("A2:F" & xIntR).Sort Key1 :=WS.Range("A2:A" & xIntR), Order1 :=xlDescending
WS suivant
Application.ScreenUpdating = True
End Sub

S'il vous plaît essayez, j'espère que cela peut vous aider!
skyyang
Ce commentaire a été minimisé par le modérateur sur le site
Dans l'espoir que vous voyez ça...! Cela fonctionne à merveille - mais cela inclut des cellules avec une formule mais pas de données, créant des lacunes dans les onglets et gâchant les données sur les lignes. J'ai besoin de garder ces cellules dans mes onglets pendant qu'ils recherchent les noms ajoutés à "l'onglet principal". Je veux qu'il ne trie que les cellules avec un nom réel - une solution rapide ???
JULIE BERNARDI
Ce commentaire a été minimisé par le modérateur sur le site
Code très utile Merci
Gajendra Singh Narwa
Ce commentaire a été minimisé par le modérateur sur le site
je veux diviser les données dans plusieurs cahiers de travail, puis ajouter la valeur dans l'une des colonnes ..

j'ai préparé le code pour diviser les données dans les classeurs .. mais j'ai besoin d'aide pour ajouter le total dans l'une des colonnes
shailesh
Ce commentaire a été minimisé par le modérateur sur le site
Pouvez-vous exécuter ceci sans inclure toutes les feuilles ? C'est-à-dire laisser quelques feuilles hors de la macro ?
S
Ce commentaire a été minimisé par le modérateur sur le site
Cela ne semblait pas fonctionner pour moi. J'ai un classeur avec 12 feuilles classées par mois de l'année, chaque feuille contenant les données correspondantes concernant les produits des entreprises, etc. Mon objectif est de trier et de filtrer toutes les feuilles du classeur. Je voudrais avoir une feuille qui agirait comme feuille parent (par exemple, le premier mois de l'année), sur laquelle j'effectuerais un filtre ou une fonction de tri (par exemple, tri A -> Z) et que les autres feuilles suivraient automatiquement la même chose trier ou filtrer. Par exemple, lors de l'utilisation de la feuille intitulée "Janvier" si par exemple je choisis la colonne "D" qui comprend les jours du mois que je veux dans l'ordre "ascendant" - lors de l'actualisation du tri A -> Z sur la feuille "Janvier" , je veux que cela affecte le reste de toutes les feuilles de la séquence (février-décembre) avec tous les jours du mois triés A -> Z. Toute modification apportée à la feuille "Janvier" en ce qui concerne le tri et le filtrage, devrait effectuer l'équilibre des feuilles dans le classeur.
Z
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0  Personnages
Emplacements suggérés