(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
 

Fichiers joints

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:

LBi

XLDnaute Junior
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

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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas