Fusionner des doublons

Bonjour à tous,

Je reviens vers vous avec un nouveau problème. Je dispose de résultats d'examen extrait d'une grande base de données sur laquelle je dois faire des stats descriptives.

Mon problème est que mon fichier contient une ligne par type d'examen et non par patient.

Par exemple, j'ai 3 lignes "patient1" avec six colonnes de résultats les deux première NEG et POS et les 4 autres vides sur la première ligne, les deux du milieu NEG et POS sur la deuxième ligne et les quatre autres vides, et les 2 dernières NEG et POS sur la troisième ligne avec les autres cases vide.

J’aimerais bien obtenir une seule ligne "patient1", en fusionnant mes 6 résultats ...

Une idée ?

PS : Cause confidentialité (les patients sont identifiés par nom personnel) je ne peux pas mettre mon fichier en ligne pour vous montrer :/

Merci à vous !

EDIT : Finalement, j'ai réussi à anonymiser mon fichier ^^, je vous le joint

39lcranonyme.xlsx (145.11 Ko)

Bonjour,

un proposition, à tester

Sub aargh()
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    For i = dl To 3 Step -1
        f = True
        For j = 1 To 4
            If Cells(i, j) <> Cells(i - 1, j) Then f = False: Exit For
        Next j
        If f Then
            For j = 8 To 15
                If Cells(i, j) <> "" Then Cells(i - 1, j) = Cells(i, j)
            Next j
            Rows(i).Delete shift:=xlUp
        End If
    Next i
End Sub

Merci pour la proposition, mais ... qu'en fais-je ? C'est du VBA ? Comment je l’insère dans mon fichier ? Excuse mon niveau de noob, mais j'ai peu l'habitude :/

Bonjour,

ALT-F11 / insertion module et tu le colles le code là bas

P.

Merci, ça marche impeccablement !!

Vous êtes supers

Salut je viens de voir votre code et il correspond a un problème que j'ai, j'aimerais savoir si il est possible de fusionner les doubles sur le même principe de cette macro mais qu'il conserve les résultats en fonction d'une condition.

Par exemple :

J'aimerai que la macro efface la ligne en double et que pour les colonnes de G a W les résultat soit conservé en respectant la condition suivante pour ces colonnes ; Si il trouve " A jour" il conserve le résultat, si il trouve pas a jour il conserve le résultat " A mettre a jour " si il trouve pas " a jour " ou " A mettre a jour" qu'il conserve le résultat " Pas a jour ".

h2so4 a écrit :

Bonjour,

un proposition, à tester

Sub aargh()
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    For i = dl To 3 Step -1
        f = True
        For j = 1 To 4
            If Cells(i, j) <> Cells(i - 1, j) Then f = False: Exit For
        Next j
        If f Then
            For j = 8 To 15
                If Cells(i, j) <> "" Then Cells(i - 1, j) = Cells(i, j)
            Next j
            Rows(i).Delete shift:=xlUp
        End If
    Next i
End Sub

bonjour,

merci de mettre un fichier exemple et d'ouvrir un nouveau message

J'ai crée un nouveau message et j'ai mit le fichier dessus, voici le lien,

h2so4 a écrit :

bonjour,

merci de mettre un fichier exemple et d'ouvrir un nouveau message

Rechercher des sujets similaires à "fusionner doublons"