Corriger doublons automatiquement

[niala]

Bonjour,
Dans un tableau excel, j'ai des doublons.
Je voudrai supprimer automatiquement ceux-ci par VBA.
Le problème est que certain doublons ne sont que dans la colonne A, d'autres dans les colonnes A et B.
Comment supprimer le doublon le moins complet ( uniquement dans la colonne A par exemple et conserver celui qui est en A et B)
Suis-je clair?
Merci de votre aide.

 

[jpb388]

Re : Corriger doublons automatiquement

Bonjour à tous
à tester

Sub Doublon()
    Range("A1:D10").Select
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SortFields.Clear
        .SortFields.Add Range("A2:A10"), xlSortOnValues, Ascending, xlSortNormal
        .SortFields.Add Range("B2:B10"), xlSortOnValues, xlAscending, xlSortNormal
        .SortFields.Add Range("C2:C10"), xlSortOnValues, xlAscending, xlSortNormal
        .SortFields.Add Range("D2:D10"), xlSortOnValues, xlAscending, xlSortNormal
        .SetRange Range("A1:D10")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveSheet.Range("$A$1:$D$10").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

 

[niala]

Re : Corriger doublons automatiquement

Bonjour jp,

J'ai installé cette macro, et quand je l'exécute, j'ai une erreur 400.
Je n'arrive pas à trouver d'explication.
Merci d votre aide
Alain

 

[niala]

Re : Corriger doublons automatiquement

Re jp,
Je pense avoir trouver l'erreur,
J'essaie et vous tiens au courant
Merci

 

[jpb388]

Re : Corriger doublons automatiquement

re
met voir ton fichier

 

[niala]

Re : Corriger doublons automatiquement

Re,
Le fichier en attaché.
Problème, lorsque je lance la macro, il me supprime le nom identique avec pourtant un prénom différent.

 

[jpb388]

Re : Corriger doublons automatiquement

quand les colonnes sont vides (a part le nom bien sur) on les considèrent comme une entrée valide ou comme un doublon

 

[niala]

Re : Corriger doublons automatiquement

Comme un doublon
Même nom, même prénom, sans date de naissance = doublon
même nom, prénom différent = entrée valide

 

[jpb388]

Re : Corriger doublons automatiquement

re
Teste et dis moi
a+
jp

 

[laetitia90]

Re : Corriger doublons automatiquement

bonjour niala , jpb388

si beaucoup de lignes passer par un tablo & dico



j'ai change le code pas bon par celui la

Sub es()
 Dim m As Object, i As Long, z As Variant, x As Byte, y As Byte
      Application.ScreenUpdating = 0
    Range("$A$2:$D$" & Cells(Rows.Count, 1).End(3).Row).RemoveDuplicates Columns:=Array(1, 2, 3, 4)
    [a2:d1000].Sort Key1:=[a2], Order1:=xlAscending, Header:=xlGuess
    Set m = CreateObject("Scripting.Dictionary")
    For i = Cells(Rows.Count, 1).End(3).Row To 2 Step -1
    z = Cells(i, 1) & Cells(i, 2)
    If Not m.Exists(z) Then
     m.Add z, z
     Else
     x = Application.WorksheetFunction.CountA(Range(Cells(i, 1), Cells(i, 4)))
     y = Application.WorksheetFunction.CountA(Range(Cells(i + 1, 1), Cells(i + 1, 4)))
    If y < x Then Rows(i + 1).Delete Else Rows(i).Delete
    End If
   Next i
End Sub

 

[niala]

Re : Corriger doublons automatiquement

Bonsoir Laetitia90 et jpb388,
Grand merci à tous les deux.
ça marche impec.
J'ai effectivement beaucoup de lignes et la macro de Laetitia est un poil plus rapide.
Bonne soirée à tous les deux
Sympa de m'avoir aidé.
A+
Alain