(RESOLU)Trier les dates par "colonnes liées" en ordre chronologique

LBi

XLDnaute Junior
Bonjour,

Dans le tableau biologique les résultats biologiques sont importés au fur et à mesure, mais si on a besoin d'ajouter un résultat biologique avec une date antérieure, le tableau se retrouve avec une mauvaise chronologie dans les dates d'examen.


Capture50.JPG

Il faudrait que les dates d'examens se trient par ordre croissant au moment de la sauvegarde du fichier et que les numéros en ligne1 des résultats biologiques se renumérotent.

Capture51.JPG
.


Merci de votre aide
 

Pièces jointes

  • Tableau biologique essai 100.xlsm
    93.4 KB · Affichages: 21
  • Patientsessai.xlsx
    11.3 KB · Affichages: 11
  • Toto 06 02 2018.Txt
    2.4 KB · Affichages: 14
  • Toto 24 03 2018.Txt
    2.2 KB · Affichages: 13
  • Toto 29 04 2018.Txt
    2.5 KB · Affichages: 10
  • Toto 02 08 2018.Txt
    2.4 KB · Affichages: 12

job75

XLDnaute Barbatruc
Bonjour LBi,
Code:
Sub ClasserDates()
Dim dercol%, i%, j%
Application.ScreenUpdating = False
With Sheets("T1")
    dercol = 5 + 4 * Application.Count(.Rows(3))
    For i = 6 To dercol Step 4
        For j = i + 4 To dercol Step 4
            If .Cells(3, j) < .Cells(3, i) Then .Columns(j).Resize(, 4).Cut: .Columns(i).Insert
    Next j, i
    For i = 6 To dercol Step 4: .Cells(1, i) = 1 + (i - 6) / 4: Next 'numéros en 1ère ligne
End With
End Sub
A+
 
Dernière édition: