Compter les doublons.

[xce]

Bonjour à tous,

J'ai cherché des sujets portant les mêmes interrogations que les miennes mais sans grand résultat. Donc je viens vers vous directement.

J'ai un fichier de 5500 lignes et mon responsable souhaite que je mette en avant les doublons.

Colonne A : Nom du client
Colonne B : Ville (adresse client)

L'objectif est de comptabiliser le nombre RÉEL de doublon.

J'ai mis en évidence, grâce à la mise en forme conditionnelle d'Excel 2007 les doublons, mais je ne trouve pas la formule qui me permettrait de les comptabiliser.

En effet, j'aimerais retrouver quelque chose ressemblant à :
Dans les 5500 lignes de la colonne A, il y a 5000 nom différent. Donc 500 doublons.
Mais dans les 500 doublons, il y a 200 nom correspondant aux même ville et donc adresse. Donc il y aurait en réalité que 300 doublons.

J’espère être suffisamment clair. Il vrai, qu'un fichier comme celui-ci est difficile à transmettre. Et un fichier exemple, je n'en vois pas l'intérêt. Les 2 critères importants sont NOM + VILLE.

Merci par avance, messieurs/dames, les rois et reines d'Excel

 

[Guest]

Re : Compter les doublons.

Bonjour,

Et un fichier exemple, je n'en vois pas l'intérêt

Je ne vois pas non plus l'intérêt d'un forum....ni de répondre d'ailleurs!

A+

 

[WUTED]

Re : Compter les doublons.

Bonjour,

Sinon tu compares directement avec les noms ET les adresses...

 

[xce]

Re : Compter les doublons.

Je ne vois pas non plus l'intérêt d'un forum....ni de répondre d'ailleurs!

Je peux en laisser un si vraiment cela semble utile.

 

[R@chid]

Re : Compter les doublons.

Bonjour @ tous,
si j'ai bien compris,

=NB(1/FREQUENCE(EQUIV(A2:A5515&B2:B5515;A2:A5515&B2:B5515;0);LIGNE(INDIRECT("1:"&LIGNES(A2:A5515)))))

je ne sais pas comment tu as calculé 300,
sinon un petit fichier exemple de 30 lignes sera plus clair
Amicalement

 

[Guest]

Re : Compter les doublons.

Re,

Re salut Rachid,

Je trouve 397 doublons avec:

=SOMME(SI(FREQUENCE(EQUIV(A2:A5515&B2:B5515;A2:A5515&B2:B5515;0);EQUIV(A2:A5515&B2:B5515;A2:A5515&B2:B5515;0))>0;1))-5514

Attention au temps de calcul.

A+

 

[R@chid]

Re : Compter les doublons.

Re,
avec : =5514-MaFormue et validation classique
Amicalement

 

[hoerwind]

Re : Compter les doublons.

Bonjour, salut Hasco, Wuted et Rachid,

Sous l'exemple joint, en supprimant les espaces inutiles (exemple : en ligne 6 devant Blondel - voir aussi lignes 488 et 489) je compte 5109 clients différents, donc 405 doublons.

Est-ce exact ?

Édition :
Hasco, j'en trouvais aussi 397 avant d'avoir supprimé les espaces superflus.
Temps de calcul : négligeable !

 

[Guest]

Re : Compter les doublons.

Re,

Hello Hoerwind

T'es moins fénéant que moi!

@Rachid: t'as formule est meilleur, je ne suis pas spécialiste des formules matricielles. Mais je suis content d'apprendre.

A+

 

[R@chid]

Re : Compter les doublons.

Bonjour,
@ Hasco :

T'es moins fénéant que moi!

Peut etre il faut dire : tu n'es pas fénéant
car "T'es moins fénéant que moi!" veut dire qu'il est fénéant mais pas comme toi...
sauf erreur de ma part, je ne suis pas français
Amicalement

 

[Guest]

Re : Compter les doublons.

Re,

Arf....Bien vu Rachid... Mais à chacun sa flème.... et je ne doute pas que Tototiti ait la (les) sienne(s)

nbdoublons par macro. Ne tient pas compte des blancs non plus:

Function NbDoublons() As Long
Dim Valeurs As Variant: Valeurs = Range("A2:B5515").Value
Dim lig As Long
Dim dic As Object: Set dic = CreateObject("Scripting.dictionary")
For lig = 1 To UBound(Valeurs, 1)
    dic(Valeurs(lig, 1) & Valeurs(lig, 2)) = Valeurs(lig, 1) & Valeurs(lig, 2)
Next
NbDoublons = UBound(Valeurs, 1) - dic.Count
End Function

A+

 

[hoerwind]

Re : Compter les doublons.

Re,

En C2 : =SUPPRESPACE(A2&" "&B2)
à copier jusqu'en C5515
En D2 : =SOMMEPROD(1/NB.SI(C2:C5515;C2:C5515))
renvoie 5109
5514-5109 = 405 doublons

 

[R@chid]

Re : Compter les doublons.

Bonsoir @ tous,

et je ne doute pas que Tototiti ait la (les) sienne(s)

c'est peut être Howerwind

@ Howerwind :
Oui pourquoi pas le SUPPRESPACE(),

=LIGNES(A2:A5515)-NB(1/FREQUENCE(EQUIV(SUPPRESPACE(A2:A5515)&SUPPRESPACE(B2:B5515);SUPPRESPACE(A2:A5515)&SUPPRESPACE(B2:B5515);0);LIGNE(INDIRECT("1:"&LIGNES(A2:A5515)))))

@ valider par Ctrl+Maj+Entree
Elle renvoie aussi 405
Amicalement

 

[CISCO]

Re : Compter les doublons.

Bonsoir à tous, bonsoir Rachid

Bonjour,
@ Hasco :

Peut etre il faut dire : tu n'es pas fénéant
car "T'es moins fénéant que moi!" veut dire qu'il est fénéant mais pas comme toi...
sauf erreur de ma part, je ne suis pas français
Amicalement

Fainéant et non fénéant...

@ plus

 

[R@chid]

Re : Compter les doublons.

Bonsoir @ tous,
Merci CISCO pour la correction,
Mais comme tu sais mon ami je suis pas français alors j'ai compris ce que veut dire notre ami Hasco sans aucune connaissance préalable au mot, et d’ailleurs je n'ai fait qu'un copier coller au mot...
Merci, je suis ravis d’être parmi vous sur le forum j'apprends pleines de choses ici...
Merci @ vous tous