Trouver des doublons et les afficher [Résolu]

Signaler
Messages postés
401
Date d'inscription
samedi 26 août 2006
Statut
Membre
Dernière intervention
18 novembre 2019
-
nlbmoi
Messages postés
401
Date d'inscription
samedi 26 août 2006
Statut
Membre
Dernière intervention
18 novembre 2019
-
Bonjour

Mon fichier contient sur la 1ère feuille (Arbitre) une base de clubs (colonne B) évoluant dans des championnats (colonne A) et l'arbitre qui correspond (colonne D).
Dans la seconde feuille, je souhaite vérifier qu'il n'existe pas de doublon c'est à dire qu'un arbitre n'apparaisse pas deux fois dans la feuille Arbitre: si c'est le cas, j'aimerai faire apparaître dans la colonne S les niveaux des équipes (pour un même club) qui ont le même arbitre dans la ligne correspondante de la feuille DAFA.
J'ai mis en surligné jaune dans la feuille DAFA ce que cela doit donner avec l'exemple pris.

Mon fichier : https://www.cjoint.com/c/IKqvUSt3lVK

Pour information, dans mon fichier, je récupère dans la 2ème feuille les clubs sans arbitre et les clubs où l'arbitre n'a pas arbitré à l'aide d'une macro

Merci

PS : j'ai masqué dans le fichier les colonnes qui ne servent pas pour ma demande.
Messages postés
50541
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
13 décembre 2019
11436



Bonsoir.

Je n'y connais rien en macro.

Mais pour savoir quels arbitres apparaissent plusieurs fois en colonne D de la feuille <Arbitre>, il suffit de saisir en S5 la formule =NB.SI(D:D;D5) et de la recopier vers le bas ...

C'est bien, la retraite ! 
Surtout aux Antilles ... 

Raymond (INSA, AFPA)
Messages postés
11458
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
12 décembre 2019
1546
Bonjour

Dans ta macro entre End With et Next i rajoute ces lignes :
     aff = ""
       For n = 5 To Arb.[D1000].End(xlUp).Row
        nba = Application.WorksheetFunction.CountIfs(Arb.Range("B:B"), Daf.Range("A" & i), Arb.Range("D:D"), Arb.Range("D" & n))
            If nba > 1 And Application.WorksheetFunction.CountIfs(Arb.Range("B5:B" & n), Daf.Range("A" & i), Arb.Range("D5:D" & n), Arb.Range("D" & n)) = 1 Then
                For t = n To Arb.[D1000].End(xlUp).Row
                 If Arb.Range("D" & t) = Arb.Range("D" & n) Then aff = aff & Arb.Range("A" & t) & "/"
                Next t
            End If
       Next n
     If aff <> "" Then Daf.Range("S" & i) = Left(aff, Len(aff) - 1)

Et n'oublie pas dans ton ClearContents au début de faire aussi effacer la colonne S

Cdlmnt
Via
nlbmoi
Messages postés
401
Date d'inscription
samedi 26 août 2006
Statut
Membre
Dernière intervention
18 novembre 2019
18
nickel, ça marche, merci