Sub test()
Dim zone As Range, curCell As Range
Set zone = ThisWorkbook.Sheets("Sheet1").Range("$A$1:$G$10")
For Each curCell In zone.Cells
If Application.WorksheetFunction.CountIf(zone, curCell.Text) > 1 Then curCell.Interior.Color = RGB(256, 256, 0)
Next curCell
End Sub
Sub test()
Dim zone As Range, curCell As Range
Set zone = ThisWorkbook.Sheets("Feuil1").Range("$A$1:$G$10")
For Each curCell In zone.Cells
If [B]curCell.Text <> vbNullString And[/B] Application.WorksheetFunction.CountIf(zone, curCell.Text) > 1 Then curCell.Interior.Color = RGB(256, 256, 0)
Next curCell
End Sub
[COLOR="DarkSlateGray"]=NB.SI($A$1:$G$10;A1)>1[/COLOR]
Bonjour mromain,(...)
j'ajoute le classeur aussi...
(...)