identification de doublons

sri75 · 2 Décembre 2009

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 · 2 Décembre 2009

Re : identification de doublons

Bonjour sri75,

voici un exemple:

Code:

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 · 3 Décembre 2009

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

identification de doublons

sri75

XLDnaute Occasionnel

skoobi

XLDnaute Barbatruc

sri75

XLDnaute Occasionnel

Discussions similaires

identification de doublons

sri75

XLDnaute Occasionnel

skoobi

XLDnaute Barbatruc

sri75

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency