sup doublons VBA

obyone · 9 Novembre 2016

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 · 9 Novembre 2016

Bonsoir obyone,

Voir un essai avec le code ci-dessous:

VB:

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

sup doublons VBA

obyone

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

sup doublons VBA

obyone

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency