Rechercher date +heures +/-1h + valeurs correspondantes issues de 2 tables

Question

Peut-être qu'une personne à déjà eu ce cas de figure. Je récupère sur 2 tableaux distincts des résultats d'analyses de laboratoire avec une date et une heure pour chaque valeur. Je cherche à afficher dans une 3e table la liste des jours communs dont l'heure est à +/-1h près la même et afficher alors les valeurs correspondantes issues de la table 1 et de la table 2 pour cette date identique mais heure approchée. Remarque: il y a peut être pour une même journée plusieurs Le but est au final avec ces deux valeurs pour une date d'établir le rapport PaO2/FiO2 Dans le fichier joint 1er onglet "FJ" il y a un exemple. Je ne m'en sors pas Merci par avance à ceux qui proposeront des pistes d'outils à utiliser. Bien à vous Sesium...

Jean-Eric · Answer

Un première réponse de ce que l'on peut comprendre et interpréter !... Réalisée avec Power Query. A te relire. Cdlt...

Jean-Eric · Answer

J'ai revu ma copie. Une solution avec formules est compliquée. Je persiste donc avec Power Query et cette solution n'est pas difficile à mettre en place. Elle ne demande par de compétences particulières. Le principe est simple : Nous avons 2 tables structurées (dynamiques), T_Ventilation et T_Gazométrie. Je décompose la date et l'heure. Je crée un intervalle pour l'heure (début et fin). Pour 08:30, l'intervalle est 08:00-09:00 Ceci pour les 2 tableaux. Je combine (fusionne) ensuite les 2 tables avec comme critère une date et un intervalle communs. Si les résultats ce nouveau fichier sont ceux attendus, je propose de faire un petit tutoriel pour expliquer comment reproduire la chose. Cordialement...

Jean-Eric · Answer

Tu trouveras ci-joint le tutoriel proposé précédemment. Le tuto est en format texte (utiliser le bloc notes Windows) pour pouvoir être visualisé sans souci dans Excel et dans Power Query. Comme dans Excel, il y a un ruban, des onglets et des groupes de données. Tu vas certainement perdre beaucoup de temps à trouver les commandes. Donc, avant tout, il serait judicieux que tu consultes ce lien pour te familiariser avec l'éditeur Power Query : https://support.microsoft.com/fr-fr/office/pr%C3%A9sentation-de-l-%C3%A9diteur-de-requ%C3%AAte-power-query-1d6cdb63-bf70-4ae8-a7d5-6ae9547004d9 Pour résumer la chose, toutes les opérations sont effectuées à partir du ruban, et il suffit de reproduire le tuto précisement. Si tu as un ou des soucis, je te propose de me contacter par MP (message privé) pour envisager une aide différente. A te relire. Cordialement. Nota : Il faut envisager un modèle de document pour un fichier unique par patient (si je ne me trompe pas !)...

Jean-Eric · Answer

J'ai revu le calcul d'intervalle. A Vérifier, !... Sinon, on peut ajouter une colonne avec une notation (SDRA sévère, SDRA modéré, etc.) Mais avec les seuls valeurs &lt;100, &lt;200 avec une normalité à 452, c'est limité. D'autres valeurs significatives ? Pour l'histoire du tableau 3, je ne comprends pas tout. Peux-tu joindre un fichier comportant 3 tables et reformuler la chose ? Cordialement...

Jean-Eric · Answer

Une mise à jour avec mon interprétation. Un tableau final par jour, positions différentes et pa02 mmHg / FIO correspondants. A te relire. Cdlt. Nota : les doublons sont supprimés !...

Klin89 · Answer

Bonjour Jean-Eric , sesium44

Je prends le train en marche et n'en suis qu'au début de la discussion.

Il y a du texte dans certaines cellules, des valeurs d'erreur et des divisions par zéro

Pas trop pigé la définition de vos intervalles.

Pour ma part, j'ai ajouté et soustrait une heure à vos relevés de ventilation et gazométrie pour composer les intervalles.

Sinon, j'ai rassemblé vos mesures comme ceci : restitution dans une feuille nouvellement créée.

Option Explicit
Sub test()
    Dim a, b, c(), i As Long, ii As Long, n As Long
    With Sheets("FJ")
        a = .Cells(1).CurrentRegion.Value2
        b = .Cells(7).CurrentRegion.Value2
    End With
    ReDim c(1 To (UBound(a, 1) - 1) * (UBound(b, 1) - 1) + 1, 1 To 7)
    n = 1
    c(n, 1) = "Date ventilation": c(n, 2) = "Heure ventilation"
    c(n, 3) = "Heure gazométrie": c(n, 4) = "Date gazométrie"
    c(n, 5) = "Valeur PaO2 mmHg": c(n, 6) = "Valeur FiO2"
    c(n, 7) = "Valeur PaO2 mmHg /FIO2"
    For i = 2 To UBound(a, 1)
        For ii = 2 To UBound(b, 1)
            If ((a(i, 1) - (1 / 24) >= b(ii, 1) - (1 / 24) And a(i, 1) - (1 / 24) <= b(ii, 1) + (1 / 24)) Or _
                (a(i, 1) + (1 / 24) >= b(ii, 1) - (1 / 24) And a(i, 1) + (1 / 24) <= b(ii, 1) + (1 / 24))) Then
                n = n + 1
                c(n, 1) = a(i, 2): c(n, 2) = a(i, 3)
                c(n, 3) = b(ii, 3): c(n, 4) = b(ii, 2)
                c(n, 5) = b(ii, 5): c(n, 6) = a(i, 5)
                If IsNumeric(c(n, 6)) And c(n, 6) <> 0 And IsNumeric(c(n, 5)) Then
                    c(n, 7) = c(n, 5) / c(n, 6)
                End If
            End If
        Next
    Next
    With Sheets.Add.Cells(1).Resize(n, UBound(c, 2))
        .Value = c
        .Columns(1).NumberFormat = "m/d/yyyy"
        .Columns(4).NumberFormat = "m/d/yyyy"
        .Columns(2).NumberFormat = "h:mm;@"
        .Columns(3).NumberFormat = "h:mm;@"
        .Columns(7).NumberFormat = "0.00"
        .VerticalAlignment = xlCenter
        .BorderAround Weight:=xlThin
        .Borders(xlInsideVertical).Weight = xlThin
        With .Rows(1)
            .Font.Size = 11
            .Interior.Color = 9359529
            .BorderAround Weight:=xlThin
            .HorizontalAlignment = xlCenter
        End With
        .Columns.AutoFit
    End With
End Sub

Je continue à suivre la discussion.

klin89

Jean-Eric · Answer

Je reviens après quelques jours d'inactivité. Ta dernière question est-elle toujours d'actualité ? Faut-il simplement ajouter l'heure ? Cdlt...