VBA

Les doublons dans excel

Deux petites fonctions bien pratiques sur Excel en macro pour sortir la liste des non doublons d'un colonne et la liste des doublons

Sub nonDoublons()
  Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In [A2:A3307] 
     mondico.Item(c.Value) = mondico.Item(c.Value) + 1
  Next c
  i = 2
  For Each c In mondico.keys
    If mondico(c) = 1 Then
      Cells(i, 12) = c 
      i = i + 1
    End If
  Next
End Sub

Sub Doublons()
  Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In [A2:A10] 
     mondico.Item(c.Value) = mondico.Item(c.Value) + 1
  Next c
  i = 2
  For Each c In mondico.keys
    If mondico(c) > 1 Then
      Cells(i, 10) = c
      i = i + 1
    End If
  Next
End Sub

Subscribe to RSS - VBA