identification de doublons

[sri75]

Bonjour, j'ai récupéré sur le forum cette macro qui permet de reperer les doublons d'une colonne et de les compter.

https://www.excel-downloads.com/threads/compter-le-nb-doccurrence-dans-un-tableau.129878/

je n'arrive pas à l'adapter afin de porter un X en face de l'occurence dès quelle est trouvée plus d'une fois.

ex : je trouve toto en A1 puis en a50 je mets un X en B1 et en B50 et ainsi de suite

je ne suis pas intéressé par comptage et le reperage tel qu'il est présenté dans la macro d'origine.

Merci pour votre aide

 

[skoobi]

Re : identification de doublons

Bonjour sri75,

voici un exemple:

Sub test2()
  Dim data
  Dim plage As Range, c As Range

  Set plage = Range("a1:a" & Range("a65536").End(xlUp).Row)
  For Each c In plage
    If Application.CountIf(plage, c) > 1 Then c.Offset(0, 1).Value = "X"
  Next c

End Sub

Je suis partie du code de Hervé, que je salue si jamais il passe par là 🙂.

 

[sri75]

Re : identification de doublons

Bonjour, voila la solution et en plus elle peint le doublon !

Sub TrouveDoublon()
Dim colonne, Haut, Bas, cle
colonne = ActiveCell.Column
Haut = Selection.End(xlUp).Row
Bas = Selection.End(xlDown).Row
Dim tab1
Set tab1 = CreateObject("Scripting.dictionary")
For compteur = 1 To Bas
cle = CStr(Cells(compteur, colonne))
If tab1.exists(cle) Then
couleur = 4

Range("c" & compteur - 1).Value = "X"
Range("c" & compteur).Value = "X"
Else
tab1(cle) = 1
couleur = 0
End If
Cells(compteur, colonne).Interior.ColorIndex = couleur



'ActiveCell.Offset(0, 1).Value = "X"


Next
End Sub


Bonne journée