Repérer doublons en VBA

[sev]

Bonjour à tous,
Quel serait le code en VBA pour repérer les doublons de C6 à C23 et H6 à H41 en mettant le fond de cellule en noir et police en blanc ?

Merci d'avance pour vos solutions

 

[BOISGONTIER]

Re : Repérer doublons en VBA

Bonjour,

Voir PJ

Function NbSiMZ(champrech As Range, valCherchée)
  Application.Volatile
  temp = 0
  For i = 1 To champrech.Areas.Count
    For j = 1 To champrech.Areas(i).Count
      If valCherchée = champrech.Areas(i)(j) Then
        temp = temp + 1
      End If
    Next j
  Next i
  NbSiMZ = temp
End Function

Sub essai()
  For Each c In [champ2]
  If NbSiMZ([champ2], c.Value) > 1 And c.Value <> "" Then
    c.Interior.ColorIndex = 1
    c.Font.ColorIndex = 2
  End If
  Next c
End Sub

JB
Formation Excel VBA JB

 

[Hervé]

Re : Repérer doublons en VBA

bonjour

une autre solution :

Dim plage As Range, c As Range
 
Set plage = Range("a1:c10") 'a adapter
 
For Each c In plage
    If Not c = "" Then
        If Application.CountIf(plage, c) > 1 Then
            c.Interior.ColorIndex = 1
            c.Font.ColorIndex = 2
        Else
            c.Interior.ColorIndex = 6
            c.Font.ColorIndex = 1
        End If
    End If
Next c

salut