Tri dates dans plusieurs tableau

[lcoco]

Bonjour,

Je souhaiterais faire un tri de la date la plus proche de la date du jour à la date la plus éloigné. Cela sur tous les tableaux même ceux actuellement vide car ils peuvent être remplie à tout moment.

Voici un exemple de l’Excel :
exemple pour macro.xlsx (41,9 Ko)

Merci par avance de l’aide

[Cow18]

Sub triage()
     Dim c, c1 As Range

     Set c = Sheets("Feuil1").UsedRange      'la plage
     Set c1 = c.Find("Date", Lookat:=xlWhole)     'rechercher "Date" dans cette plage
     If Not c1 Is Nothing Then               'trouvé
          FA = c1.Address                    'adresse de cette première cellule
          Do                                 'boucler
               If c1.Row >= 8 Then           'à partir de la ligne 8
                    If Join(Application.Transpose(Application.Transpose(c1.Resize(, 5).Value)), "|") = "DATE|TYPE|N°|QUANTITE|PREVISION" Then     'les 5 cellules sont ceci
                         c1.Resize(17, 5).Sort c1, Header:=xlYes     'la plage a trier
                    End If
               End If

               Set c1 = c.FindNext(c1)       'cellule suivante
               b = Not c1 Is Nothing         'trouvé
               If b Then b = c1.Address <> FA     'ce n'est pas la première
          Loop While b
     End If
End Sub

[lcoco]

Ca marche parfaitement, merci !