Dédoublonnage sur 2 colonnes + 1 colonne de pondération

[kakemphaton]

Bonjour,

Je souhaiterais effectuer une opération de dédoublonnage sur 2 colonnes + 1 colonne de pondération avec une macro (opération qui se répète).
Si, les colonnes a et b sont identiques alors je souhaite conserver la seule ligne unique (choix sur D). Le choix de la ligne à supprimer doit se faire sur la colonne D (pondération).
Si, elle est vide (D), je conserve la ligne remplie. Si toutes sont vides (d), suppression aléatoire, idem pour si toutes remplies (d), suppression aléatoire de n'importe quelle ligne doublon.

Exemple sur le fichier Excel

Merci beaucoup
Olivier

 

[Fred0o]

Re : Dédoublonnage sur 2 colonnes + 1 colonne de pondération

Bonjour Kekemphaton,

Voici un bout de code qui me semble correspondre à ta demande :

Sub Dedoublonner()
    Dim i, j, DLi
    DLi = [A65536].End(xlUp).Row
    For i = DLi To 2 Step -1
        For j = i - 1 To 2 Step -1
            If Cells(j, 1) = Cells(i, 1) And Cells(j, 2) = Cells(i, 2) Then
                If IsEmpty(Cells(i, 4)) Then
                    Cells(i, 1).EntireRow.Delete shift:=xlUp
                Else
                    Cells(j, 1).EntireRow.Delete shift:=xlUp
                End If
            End If
        Next
    Next
End Sub

Regarde la pièce jointe kakemphaton_V1.xlsm

Bonnes fêtes.

 

[kakemphaton]

Re : Dédoublonnage sur 2 colonnes + 1 colonne de pondération

Bonjour Fred0o,

C'est extra, je te remercie.Grâce à toi, Noël à déjà commencé, merci beaucoup.

Joyeuses fêtes