Supprimer doublons 2 colonnes

[lou3925]

Bonjour,

J'essaille de supprimer des doublons en fonction de 2 colonnes.
Mon problème est que quelque fois une cellule dans ma 2ème colonne est vide et la macro ignore la ligne mais il ne faut pas.

Je joins un fichier avec le début de ma macro.

 

[pierrejean]

Re : Supprimer doublons 2 colonnes

bonjour lou3925

Vois si cela te convient

 

[Paritec]

Re : Supprimer doublons 2 colonnes

Bonsoir Pierrejean 🙂 lou3925
une question A 1 et A4 c'est un doublon ?
B 2 et B 5 c'est un doublon ?
pour moi non mais bon
dans l'attente de ta réponse
a+
papou 🙂

 

[ROGER2327]

Re : Supprimer doublons 2 colonnes

Bonsoir à tous

Pas très claire, cette affaire !
Un essai :

[COLOR="DarkSlateGray"][B]Sub supprimerdoublons()
Dim oDat, sDat(), j&, k&, n&, x
   oDat = Range(Cells(1, 1), Cells(WorksheetFunction.Max(Cells(Rows.Count, 1).End(xlUp).Row, Cells(Rows.Count, 2).End(xlUp).Row), 2)).Value
   n = 1
   ReDim sDat(1 To 2, 1 To n)
   sDat(1, n) = oDat(1, 1)
   sDat(2, n) = oDat(1, 2)
   For j = 2 To UBound(oDat, 1)
      x = oDat(j, 1) & "#" & oDat(j, 2)
      For k = 1 To n
         If sDat(1, k) & "#" & sDat(2, k) = x Then Exit For
      Next k
      If k > n Then
         n = k
         ReDim Preserve sDat(1 To 2, 1 To n)
         sDat(1, n) = oDat(j, 1)
         sDat(2, n) = oDat(j, 2)
      End If
   Next j
   Range(Cells(1, 1), Cells(WorksheetFunction.Max(Cells(Rows.Count, 1).End(xlUp).Row, Cells(Rows.Count, 2).End(xlUp).Row), 2)).ClearContents
   Cells(1, 1).Resize(UBound(sDat, 2), 2) = WorksheetFunction.Transpose(sDat)
End Sub[/B][/COLOR]

ROGER2327
#3747

Dimanche 8 Gidouille 137 (Sainte Boudouille, bayadère, ST)
4 Messidor An CCXVIII
2010-W25-2T19:07:48Z

 

[lou3925]

Re : Supprimer doublons 2 colonnes

Tu as raison Papou
A1, A4 et B2, B5 ne sont pas des doublons.
C'est ce qui rend la chose si compliqué a mon gout


Merci à tous et surtout à ROGER2327, sa fonctionne comme par magie !

 

[ROGER2327]

Re : Supprimer doublons 2 colonnes

Re...

(...)
Merci à tous et surtout à ROGER2327, sa fonctionne comme par magie !

Ce n'est pas de la magie, c'est un coup de bol...​

ROGER2327
#3749

Dimanche 8 Gidouille 137 (Sainte Boudouille, bayadère, ST)
4 Messidor An CCXVIII
2010-W25-2T20:25:07Z