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

LBi · 5 Août 2018

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 · 5 Août 2018

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+

LBi · 6 Août 2018

Merci
Tableau biologique opérationnel

LBi · 6 Août 2018

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 · 6 Août 2018

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

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

LBi

XLDnaute Junior

Pièces jointes

job75

XLDnaute Barbatruc

LBi

XLDnaute Junior

Pièces jointes

LBi

XLDnaute Junior

LBi

XLDnaute Junior

Discussions similaires