XL 2013 Tri dans plusieurs blocs en même temps

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Caro59

XLDnaute Nouveau
Bonjour,
J'ai un tableau avec plusieurs comparatifs pour chaque fois les même objets de comparaison (dans la colonne A) et je souhaiterais pouvoir sélectionner/trier seulement les objets qui m'intéresse, avec une seule manipulation et qu'ils apparaissent dans chaque bloc de comparaison (dans mon tableau d'origine il y a une vingtaine d'objets et c'est fastidieux d'aller chaque fois trier chaque bloc).
Merci d'avance !
C.
 

Pièces jointes

Bonsoir @Caro59, @djidji59430 🙂

Une p'tite macro associée au bouton orange. La macro est dans module1.
VB:
Sub TrierTous()
Dim lsto
  For Each lsto In Sheets("Feuil1").ListObjects
    With lsto.Range
      .Sort key1:=.Range("a1"), order1:=xlAscending, Header:=xlYes
    End With
  Next lsto
  MsgBox ("Tri des tableaux selon colonne A terminé")
End Sub
 

Pièces jointes

Bonsoir @Caro59, @djidji59430 🙂

Une p'tite macro associée au bouton orange. La macro est dans module1.
VB:
Sub TrierTous()
Dim lsto
  For Each lsto In Sheets("Feuil1").ListObjects
    With lsto.Range
      .Sort key1:=.Range("a1"), order1:=xlAscending, Header:=xlYes
    End With
  Next lsto
  MsgBox ("Tri des tableaux selon colonne A terminé")
End Sub

Je ne dois pas avoir bien compris comment faire, ça ne fonctionne pas !... Merci de m'éclairer.
 
Bonjour @Caro59


Pour mon fichier, quand je clique sur le bouton orange, le tri se fait... Joignez le fichier qui pose un problème.
Voici le fichier, je sélectionne B et D par exemple mais quand je clique sur le bouton orange ça ne change pas les blocs du dessous.
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour