sup doublons VBA

[obyone]

bonjour,

tout est dans le titre...
je souhaite supprimer les doublons dans la 1iere colonnes s'ils apparaissent dans la seconde lors du clic sur le bouton...

merci d'avance

 

[mapomme]

Bonsoir obyone,

Voir un essai avec le code ci-dessous:

Sub Bouton3_Clic()
Dim i&, tablo, dico

   With Sheets("essai")
      tablo = Range("Tableau3").Value
      Set dico = CreateObject("scripting.dictionary")
      dico.comparemode = vbTextCompare

      For i = 1 To UBound(tablo): dico(tablo(i, 2)) = "": Next i
      For i = 1 To UBound(tablo)
         If dico.exists(tablo(i, 1)) Then tablo(i, 1) = ""
      Next i
      Range("Tableau3") = tablo
   End With
End Sub