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

[LBi]

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.

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.

.


Merci de votre aide

 

[job75]

Bonjour LBi,

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+

 

[LBi]

Merci
Tableau biologique opérationnel 🙂

 

[LBi]

D'où peut bien venir l'augmentation du poids du fichier de 93Ko dans le fichier " Tableau biologique essai 100.xlsm " du 1er message et celui du 3ème " Tableau biologique essai.xlsm " qui lui pèse 330 Ko .

 

[LBi]

Trouvé... ça vient de la liaison vers le fichier patient (408Ko)
Peut-on réduire le poids du fichier "Tableau biologique" ?