XL 2010 VBA : détection de doublons

Bonjour @spike29,

Avec une fonction personnalisée écrite en VBA: =DoublonNBrListe(xrg , opt)

• où xrg est la plage à examiner
• où opt est facultatif: Si opt est absent, alors on affiche le nombre de doublon. Si opt est présent (et dans ce cas, il peut valoir n'importe quoi), alors on affiche la liste des doublons.

les formules en C3: D3 sont à copier/tirer vers la droite.

Pour colorier les cellules des doublons, on a utilisé une MFC sur la plage C4:N20, avec pour formule:
=ET(NB.SI(C$4:C4;C4)>1;EST.IMPAIR( COLONNES($C:C))) .

Le code de la fonction est dans module1:

Bonjour le fil

Histoire de croiser ma pomme
Petit complément informatif
Cocher la référence idoine* dans VBE, si DoublonNBrListe est utilisé dans un autre classeur.
*: je laisse mapomme préciser laquelle
PS: T'as pas vu mon MP ?

Bonjour @Staple1600 ,

Staple1600 à dit:

Cocher la référence idoine* dans VBE, si DoublonNBrListe est utilisé dans un autre classeur.

Cliquez pour agrandir...

Il est vrai que pendant la phase de rédaction du code, je fais uniquement référence à la bibliothèque congrue pour bénéficier de l'auto-complétude à la frappe. On va donc trouver à la fois le "as new Dictionary" dans la déclaration et le "createObject(...)" dans le code. Neuf fois sur dix, j'oublie de l'ôter quand le travail est fini.
Ben du coup, j'ai retiré le "as new Dictionary". Donc, je ne coche plus.

C'est tellement calme et immobile aussi bien dehors qu'à l'intérieur, que même faire la sieste semble être une agitation physique et intellectuelle .

Re

mapomme
Pronostic ?
(sans VBA, sans formule)
1) I want to break free!
ou
2) capot ? (aka G.G remix: I will confine)

Oh no, not I, I will confine
Oh, as long as I know how to love, I know I'll stay alive
I've got all my needs to live
And I've got all my cells to give and I'll confine
I will confine, hey, hey

Un grand merci à tous les deux pour votre aide aussi rapide qu'efficace.

@mapomme ton code fonctionne parfaitement.

Petite précision qui n'apparaît pas forcément dans ma demande initiale.
La quantité de colonnes comme leurs profondeur peuvent être variables (bien que je m'arrêtais à la ligne 20 dans mon fichier test).

Conséquence, si des cellules vides sont détectées dans la plage de sélection cela est automatiquement comptabilisé comme doublon.

Est-il possible d'intégrer dans le code de ta fonction la condition suivante :
Si cellule vide dans la plage de sélection passer à la cellule suivante sans faire +1 au compteur des doublons.

J'ai essayer de "bricoler" un peu pour intégrer cela à ton code mais sans succès.
Code qui est bien au dessus de mes maigres connaissances en VBA.

For Each x In dic
If xrg = "" Then n = 0
Next x
DoublonNBrListe = n


Bonne fin de journée et merci encore

Bonjour,

Parfait ! C'est précisément ce qu'il me fallait.
Un grand merci pour votre aide.

Bonne journée