Doublon sur une ligne

Bonjour;

Actuellement je travaille sur un fichier comportant 100 colonnes et 365 lignes.

Mais j'ai un problème pour la détection de doublons dans les colonnes. J'ai bien trouvé des formules etc . mais sur 100 colonnes cela devenait ingérable à écrire. et la fonction n'était pas adaptée car je rencontrais le souci des cellules vide.

Voilà ce que je cherche ( Fichier exemple joint):

• lorsqu'n doublon apparaît dans la ligne la cellule dans la colonne A le mot doublon apparaît
• Pour la couleur j'utiliserais une condition

Merci beaucoup de votre aide.

Salut Antho,

Tu recherchais une solution par VBA ? Si oui, cf code ci-dessous et le fichier ci-joint :

Sub Doublon()
Dim x As Long, y As Long, z As Long
For x = 2 To Range("B" & Rows.Count).End(xlUp).Row
    For y = 3 To Cells(x, 10000).End(xlToLeft).Column
    If Cells(x, 10000).End(xlToLeft).Column = 2 Then Exit For
        For z = y + 1 To Cells(x, 10000).End(xlToLeft).Column
            If Cells(x, z) = Cells(x, y) Then Cells(x, 1) = "DOUBLON"
        Next
    Next
Next
End Sub

Restant à ta dispo

merci beaucoup cela me va très bien mais j'ai encore un petit problème

mes utilisateur utilise des menu déroulant ...

J'ai trouver l'erreur mais je trouve pas comment la résoudre ...

Lorsque deux cellule sont séparer par une cellule VIDE alors le mot doublon apparait dans la colonne A

Albator,

Excuse moi pour l'oublie :p

Sa se corrige dans les conditions pour marquer "DOUBLON"

Voilà le nouveau code :

Sub Controle()
Dim x As Long, y As Long, z As Long
For x = 2 To 389
    For y = 3 To Cells(x, 10000).End(xlToLeft).Column
    If Cells(x, 10000).End(xlToLeft).Column = 2 Then Exit For
        For z = y + 1 To Cells(x, 10000).End(xlToLeft).Column
            If Cells(x, z) = Cells(x, y) And Cells(x, z) <> "" Then Cells(x, 1) = "DOUBLON"
        Next
    Next
Next
End Sub

Restant à dispo