XL 2013 Tri dans plusieurs blocs en même temps

djidji59430 à dit:

Bonjour,

Avec un petit ajout ....

Cliquez pour agrandir...

mapomme à dit:

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

Cliquez pour agrandir...

Caro59 à dit:

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

Cliquez pour agrandir...

Caro59 à dit:

Merci beaucoup, ça fonctionne à merveille.

Cliquez pour agrandir...

mapomme à dit:

Bonjour @Caro59


Pour mon fichier, quand je clique sur le bouton orange, le tri se fait... Joignez le fichier qui pose un problème.

Cliquez pour agrandir...

Caro59 à dit:

Par contre je n'arrive pas à reproduire dans mon tableau d'origine 🙁, comment on fait ?

Cliquez pour agrandir...

Caro59 à dit:

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.

Cliquez pour agrandir...