Supprimer les doubles

[ascal44]

Bonsoir à tous ,

Comment supprimer purement et simplement les doubles de la colonne B qui existent dans la colonne A ?

 

[CBernardT]

Re : Supprimer les doubles

Bonsoir ascal44,

La méthode consiste à prendre une par une les valeurs de la colonne A et de vérifier pour chacune d'elle si elle est présente dans la colonne B et dans ce cas de la supprimer.

 

[ascal44]

Re : Supprimer les doubles

Merci , je vais maintenant essayer de l'intégrer à mon classeur

 

[BOISGONTIER]

Re : Supprimer les doubles

Bonsoir,

Voir PJ

Suppression rapide des doublons de la colonne B
-0,1 seconde pour 10.000 lignes-

Sub sup()
  a = Range("A2:A" & [A65000].End(xlUp).Row)
  Set MonDico1 = CreateObject("Scripting.Dictionary")
  For Each c In a
    If Not MonDico1.exists(c) Then MonDico1.Add c, c
  Next c
  b = Range("b2:b" & [b65000].End(xlUp).Row)
  Set MonDico2 = CreateObject("Scripting.Dictionary")
  For Each c In b
    If Not MonDico1.exists(c) Then If Not MonDico2.exists(c) Then MonDico2.Add c, c
  Next c
  [B2:B1000].ClearContents
  [b2].Resize(MonDico2.Count, 1) = Application.Transpose(MonDico2.items)
End Sub

JB

 

[david84]

Re : Supprimer les doubles

Bonsoir,
ci-joint une proposition par formule.
A+