Macro tri tableaux différents même feuille

Bonjour à tous,

Je suis secrétaire et je dois trier plusieurs tableaux (443 pour être précise...) par Mont. HT décroissant.

Les tableaux ont un nombre de lignes différent et sont évidemment positionnés à la suite dans la feuille.

J'ai déjà enregistré une macro mais elle ne se lance que sur les données que j'ai indiquées pour son enregistrement.

Je ne maîtrise absolument pas le langage Macro...

Je vous joins un extrait du tableau, il est évidemment plus conséquent en réalité.

Merci pour votre aide, n'hésitez pas si questions.

Armelle

Bonjour,

Option Compare Text
Sub essai()
  début = 1
  Fin = 65000
  Do
   Set result1 = Range(Cells(début, "A"), Cells(Fin, "A")).Find(what:="client")
   If Not result1 Is Nothing Then
     Set result2 = Range(Cells(début, "B"), Cells(Fin, "B")).Find(what:="total client")
     If Not result2 Is Nothing Then
       Set Rng = Range(result1.Offset(1), result2.Offset(-1, 3))
       'Rng.Select
        Rng.Sort Key1:=result1.Offset(1, 4), Order1:=xlDescending, Header:=xlNo
     End If
   End If
   début = result2.Row + 1
  Loop Until result1 Is Nothing
End Sub

Boisgontier

Bonjour,

et merci Jacques !

Mais le mieux, c'est que votre macro fait un tri sur TOUT le tableau !!

Je pensais devoir répéter le "Ctrl+a" pour les 443 tableaux... même pas !!

Exceptionnel !

Bonne journée

Armelle