Recherche de doublons pour chaque colonne individuellement

Bonjour,

j'ai un tableau avec X colonnes allant de D à NE

je cherche un moyen de faire ce code-ci (recherche de doublons numériques, code que j'ai trouvé ici même pour une recherche de doublons) mais pour chaque colonne de D à NE individuellement. la recherche doit se faire à partir de D6 jusque D65536, E6 jusque E65536,..........NE6 jusque NE65536.

pourriez-vous m'aidez?

j'ai essayé en générant un for next en incrémentant une variable pour les colonnes mais sans succès.

Merci pour votre aide

Sub RepèreDoublon_Chiffre()

Dim Cel As Range, Lg As Integer, Plage

Sheets("BDP").Activate

    Lg = Sheets("BDP").Range("D65536").End(xlUp).Row
    Set Plage = Range("D6:D" & 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

Bonjour pascalmh, le forum,

Un essai...

Sub RepèreDoublon_Chiffre()
 Dim Cel As Range, Lg As Integer, Plage
   With Sheets("BDP")
    .Activate
     Lg = .UsedRange.Rows.Count
      For i = 4 To 369
       Set Plage = .Range(Cells(6, i), Cells(Lg, i))
           Plage.Interior.ColorIndex = xlNone
         For Each Cel In Plage
          If WorksheetFunction.CountIf(Plage, Cel) > 1 Then
           Cel.Interior.ColorIndex = 6
          End If
         Next Cel
      Next i
   End With
End Sub

Cordialement,

Merci Beaucoup, ça à l'air de fonctionner à merveille.

j'ai mis un peu de temps avant de répondre mais je regardais ce code afin de mieux le comprendre.

Merci Beaucoup

Re,

Merci pour ton retour,

Bonne continuation,

Cordialement,

J'y ai regardé un peu mieux mais il me prend les cellules non numériques aussi. Alors que le code initial que j ai mis plus haut, lui ne prend que les valeurs numériques

Merci.

Bonsoir pascalmh, le forum,

Alors que le code initial que j ai mis plus haut, lui ne prend que les valeurs numériques

Dans ce cas, essaies de remplacer :

If WorksheetFunction.CountIf(Plage, Cel) > 1 Then

par :

 If WorksheetFunction.CountIfs(Plage, Cel, Plage, ">0") > 1 Then

où :

If IsNumeric(Cel) And WorksheetFunction.CountIf(Plage, Cel) > 1 Then

Cordialement,

Bonsoir,

désolé du retard.

super, merci beaucoup.

ça fonctionne correctement.

Bonne soirée