dubois a écrit :
Bonsoir à tous,
Autre solution sans MFC
Sub RepèreDoublon_Chiffre()
'de Claude pour "vitalis77480" le 29 sept 09
Dim Cel As Range, Lg As Integer, Plage
Lg = Range("c65536").End(xlUp).Row
Set Plage = Range("c5:c" & Lg)
Plage.Interior.ColorIndex = xlNone
For Each Cel In Plage
If WorksheetFunction.CountIfs(Plage, Cel, Plage, ">0") > 1 Then
Cel.Interior.ColorIndex = 6
End If
Next Cel
End Sub
Fichier:
https://www.excel-pratique.com/~files/doc2/RepereDoublons.xls
Amicalement
Claude.
Bonsoir,
je préfère la 1ère solution qui est plus dans mon niveau de simplicité,car la 2ème solution est plus compliquée pour moi ,je n'ai pas encore mis mon nez dans le VBA,un peu de macros mais sans plus,j'en suis actuellement aux choses les plus simples,mais plus longues à mettre en application,mais j'y arrive avec de la comprèhension et de la ténacité.Votre site est très performant et les réponses sont très claires.
Bravo bonne continuation.
Cordialement.
Vitalis