Doublon sur une ligne

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
Avatar du membre
Antho49000
Membre habitué
Membre habitué
Messages : 89
Inscrit le : 17 juillet 2014
Version d'Excel : 2010 FR,2013 FR,2016 FR

Message par Antho49000 » 12 décembre 2018, 11:12

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.
Doublon.xlsx
(13.6 Kio) Téléchargé 6 fois
Là où certains ne voient que folie, nous voyons du génie.

Seuls ceux qui sont assez fous pour penser qu'ils peuvent changer le monde, y parviennent.
[Steeve JOBS]
Avatar du membre
Juice
Membre impliqué
Membre impliqué
Messages : 1'140
Appréciations reçues : 102
Inscrit le : 28 novembre 2017
Version d'Excel : Microsoft Excel 2010

Message par Juice » 12 décembre 2018, 11:21

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 :)
Pour Antho.xlsm
(21.55 Kio) Téléchargé 5 fois
Dans l'incapacité de continuer à vous aidez sur vos fichiers, je vous prie de bien vouloir m'excuser et vous invite à ouvrir un nouveau sujet pour reprendre vos problèmes avec un membre actif du Forum.

En espérant revenir très vite :)
Avatar du membre
Antho49000
Membre habitué
Membre habitué
Messages : 89
Inscrit le : 17 juillet 2014
Version d'Excel : 2010 FR,2013 FR,2016 FR

Message par Antho49000 » 12 décembre 2018, 13:21

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

mes utilisateur utilise des menu déroulant ...
DOUBLONS.xlsm
(155.13 Kio) Téléchargé 4 fois
Là où certains ne voient que folie, nous voyons du génie.

Seuls ceux qui sont assez fous pour penser qu'ils peuvent changer le monde, y parviennent.
[Steeve JOBS]
Avatar du membre
Antho49000
Membre habitué
Membre habitué
Messages : 89
Inscrit le : 17 juillet 2014
Version d'Excel : 2010 FR,2013 FR,2016 FR

Message par Antho49000 » 12 décembre 2018, 14:07

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
Là où certains ne voient que folie, nous voyons du génie.

Seuls ceux qui sont assez fous pour penser qu'ils peuvent changer le monde, y parviennent.
[Steeve JOBS]
Avatar du membre
Juice
Membre impliqué
Membre impliqué
Messages : 1'140
Appréciations reçues : 102
Inscrit le : 28 novembre 2017
Version d'Excel : Microsoft Excel 2010

Message par Juice » 12 décembre 2018, 15:19

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
Dans l'incapacité de continuer à vous aidez sur vos fichiers, je vous prie de bien vouloir m'excuser et vous invite à ouvrir un nouveau sujet pour reprendre vos problèmes avec un membre actif du Forum.

En espérant revenir très vite :)
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message