Trouver des doublons et les afficher
Résolu/Fermé
nlbmoi
Messages postés
434
Date d'inscription
samedi 26 août 2006
Statut
Membre
Dernière intervention
3 décembre 2023
-
Modifié le 16 nov. 2019 à 22:47
nlbmoi Messages postés 434 Date d'inscription samedi 26 août 2006 Statut Membre Dernière intervention 3 décembre 2023 - 18 nov. 2019 à 23:02
nlbmoi Messages postés 434 Date d'inscription samedi 26 août 2006 Statut Membre Dernière intervention 3 décembre 2023 - 18 nov. 2019 à 23:02
A voir également:
- Trouver des doublons et les afficher
- Supprimer les doublons excel - Guide
- Trouver adresse mac - Guide
- Doublons photos - Guide
- Supprimer les doublons photos gratuit - Télécharger - Nettoyage
2 réponses
Raymond PENTIER
Messages postés
58678
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
3 octobre 2024
17 204
Modifié le 17 nov. 2019 à 02:41
Modifié le 17 nov. 2019 à 02:41
via55
Messages postés
14477
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
3 octobre 2024
2 729
17 nov. 2019 à 17:25
17 nov. 2019 à 17:25
Bonjour
Dans ta macro entre End With et Next i rajoute ces lignes :
Et n'oublie pas dans ton ClearContents au début de faire aussi effacer la colonne S
Cdlmnt
Via
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
434
Date d'inscription
samedi 26 août 2006
Statut
Membre
Dernière intervention
3 décembre 2023
24
18 nov. 2019 à 23:02
18 nov. 2019 à 23:02
nickel, ça marche, merci