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

kakemphaton · 23 Décembre 2010

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 · 24 Décembre 2010

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

Bonjour Kekemphaton,

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

VB:

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 · 24 Décembre 2010

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

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

kakemphaton

Guest

Pièces jointes

Fred0o

XLDnaute Barbatruc

kakemphaton

Guest

Discussions similaires

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

kakemphaton

Guest

Pièces jointes

Fred0o

XLDnaute Barbatruc

kakemphaton

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency