détection des doublons

Re : détection des doublons

Bonjour, si c'est par ligne, tu pourrais faire une MFC du genre = nb.si($A1:$Z1;A1)>1
A essayer.
Bonne journée

Re : détection des doublons

Bonjour
Voici une macro qui fait le travail; à coller dans thisworkbook ou un module
Sub Mise_en_Forme_des_Doublons()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim C, Mondico As Object, Rng As Range, Lrow&
Lrow = Cells(Rows.Count, "B").End(xlUp).Row
Set Mondico = CreateObject("Scripting.Dictionary")
Set Rng = Range("a1").Resize(Lrow, 26)
For Each C In Rng
Mondico.Item(C.Value) = Mondico.Item(C.Value) + 1
Next C
For Each C In Rng
If Mondico.Item(C.Value) > 1 Then C.Interior.ColorIndex = 33
Next C
Set Rng = Nothing: Set Mondico = Nothing
Application.Calculation = xlCalculationAutomatic
End Sub
Cordialement
Flyonets

Re : détection des doublons

Bonjour JJ1, Flyonets, le fil;

JJ1: Merci pour la réponse. Mais je voudrais faire ça par macro et non pas par la boite de dialogue MFC.

Flyonets: Merci pour le code. Le premier test n'a pas donné de résultat... sagit-il d'une erreur de ma part?
Cordialement

Re : détection des doublons

Bonjour à tous ,

Tu n'as pas du faire d'erreur.
flyonets44 recherche les doublons dans le tableau A1:Z100.

Essaie avec :

Sub reperer_doublons()
Dim Lig As Integer, Col As Integer
For Lig = 1 To 100
For Col = 1 To 26
If WorksheetFunction.CountIf(Range(Cells(Lig, 1), Cells(Lig, 26)), Cells(Lig, Col)) > 1 Then
Cells(Lig, Col).Interior.ColorIndex = 33
End If
Next
Next
End Sub

Cliquez pour agrandir...

Amicalement

Re : détection des doublons

Bonjour haonv, le fil;
Oui ça marche comme souhaité. merci infiniment haonv.