Recherches de doulons dans une liste

[Adamev]

Bonjour ;
Dans une petite base de donnée j’ai les entêtes suivantes : N° (Clé primaire), Nom, Prénom, DateNaissance, LieuNaissance.
Je voudrais connaitre les Nos des personnes ayant le même nom, le même prénom.
Par formules ou par VBA.
Merci d’avance

 

[Vorens]

Re : Recherches de doulons dans une liste

Hello,

Pourquoi ne pas tout simplement utiliser les filtres ?

Cordialements

 

[Adamev]

Re : Recherches de doulons dans une liste

Hello,

Pourquoi ne pas tout simplement utiliser les filtres ?

Cordialements

Merci, Vorens
Les filtres? soit! ... comment agir?
Cordialement

 

[Vorens]

Re : Recherches de doulons dans une liste

Hello,

Ahhh il faut des explications !!

Je te joint un petit fichier exemple avec un tableau de nom et des filtres appliquer dessus.

Dans l'onglet Donnée de excel tu as l'option Filtre. L'icone ressemble à un antonoire gris.

Dans mon fichier j'ai appliquer un filtre sur le tableau entier. Tu as des petit flèche grise. Décoche "sélectionner tout" et tu coche la case devant le prénom que tu veux voir, cela va te filtré tout les autres. Par exemple tu coche Pierre et tu verra 3 résultats pour le prénom pierre. Apres tu fait pareil sur la colonne des nom et tu filtre en décochant Fripo et tu obtiens les deux personnes qui ont le même nom dans le tableau.

C'est une solution parmi tant d'autre mais elle a l'avantage d'être rapide. Effectue des essais sur le fichier que je te joint.

Meilleures salutations

 

[Adamev]

Re : Recherches de doulons dans une liste

Re, Vorens
Merci bien pour ces explications. Mais ce filtrage ne donne que les noms identiques à un nom préalablement choisi....
puis les prénoms... etc ce qui est lent, surtout lorsque la BD compte un nombre important de données.
Ce que je souhaite c'est l'extraction d'un seul coup de tous les doublons.
Cordialement

 

[JCGL]

Re : Recherches de doulons dans une liste

Bonjour à tous,

Adamev : Merci de joindre un fichier anonymisé mais significatif surtout les clefs.

A + à tous

 

[Adamev]

Re : Recherches de doulons dans une liste

Bonjour JCGL, Le forum;
Voici une PJ qui ressemble à mon fichier, qui comporte des doublons.
Merci

 

[JCGL]

Re : Recherches de doulons dans une liste

Bonjour à tous,

Peux-tu essayer ceci dans un module standard :

Sub Doublon()
Dim Plage As Range
Dim Cellule As Range
Dim Ligne As Integer


'on stock dans la variable plage la colonne A de la BDD
Set Plage = Range("B2:B" & Range("a65536").End(xlUp).Row)


'on boucle sur chaque cellule de la plage
For Each Cellule In Plage
    'Application.CountIf=fonction NB.SI
    'si NB.SI renvoi un resultat > 1, soit si le nom est présent plus d'une fois
    If Application.CountIf(Plage, Cellule) > 1 Then
        'on incremente la variable ligne
        Ligne = Ligne + 1
        'sur la feuille 2
        With Feuil2
            'dans la cellule numéroté ligne de la colonne A
            'on renvoi le nom
            .Cells(Ligne, "A") = Cellule
            .Cells(Ligne, "B") = Cellule.Offset(0, 1) ' decalage d'une colonne
            .Cells(Ligne, "C") = Cellule.Offset(0, 2) ' decalage de 2 colonnes
            .Cells(Ligne, "D") = Cellule.Offset(0, 3) ' decalage de 3 colonnes
        'fin de travail sur la feuille 2
        End With
    'fin de condition
    End If
'cellule suivante
Next Cellule
End Sub

A + à tous

 

[Adamev]

Re : Recherches de doulons dans une liste

Bonjour JCGL, le forum;

Bonjour à tous,
Peux-tu essayer ceci dans un module standard :

Merci bien, c'est parfait, même dans le module de la feuille1, qui contient le code.
Il me reste à ajouter les clés, ce qui ne me demande pas d'efforts.
Merci encore!!

 

[JCGL]

Re : Recherches de doulons dans une liste

Bonjour à tous,

Je ne sais pas si tu as finalisé le code :

Sub Doublon()
    Dim Zone As Range, Cel As Range, Lig As Integer


    Set Zone = Feuil1.Range("B2:B" & Range("A65536").End(xlUp).Row)
    For Each Cel In Zone
        If Application.CountIf(Zone, Cel) > 1 Then
            Lig = Lig + 1
            With Feuil2
                .Cells(Lig + 1, 1) = Cel.Offset(0, -1)
                .Cells(Lig + 1, 2) = Cel
                .Cells(Lig + 1, 3) = Cel.Offset(0, 1)
                .Cells(Lig + 1, 4) = Cel.Offset(0, 2)
                .Cells(Lig + 1, 5) = Cel.Offset(0, 3)
            End With
        End If
    Next Cel
End Sub

La ligne 1 vide en feuille 2 pour les entêtes.

A + à tous

 

[Adamev]

Re : Recherches de doulons dans une liste

Re,
Oui j'ai fait des petites modifications.
Mais, JCGL. il reste une chose que j'ai oublié de vérifier.
Ce code me donne les noms répétés. Mais ce que je cherche c'est les personnes portant le même nom et le même prénom.
Ce qui impose d'ajouter une boucle pour les prénoms dans la boucle des noms, n'est ce pas?
Merci de m'aider et de m'avoir aidé

 

[JCGL]

Re : Recherches de doulons dans une liste

Bonjour à tous,

Le fichier que tu as déposé ne permet pas les tests que tu demandes.
Tu pourrais simplement faire un tri sur les Noms.

A + à tous

 

[Adamev]

Re : Recherches de doulons dans une liste

Re,
Le premier fichier ne comportait pas des personnes en double.
J'y ai ajouté des données , de sorte que le tri fasse apparaître des noms et des prénoms en doubles.
Merci

 

[JCGL]

Re : Recherches de doulons dans une liste

Bonjour à tous,

Peux-tu essayer ceci :

Sub Doublon()
    Dim Zone As Range, Cel As Range, Lig As Integer
    Set Zone = Feuil1.Range("B2:C" & Range("A65536").End(xlUp).Row)
    For Each Cel In Zone
        If (Application.CountIf(Zone, Cel) And Application.CountIf(Zone, Cel.Offset(, 1))) > 1 Then
            Lig = Lig + 1
            With Feuil2
                .Cells(Lig + 1, 1) = Cel.Offset(0, -1)
                .Cells(Lig + 1, 2) = Cel
                .Cells(Lig + 1, 3) = Cel.Offset(0, 1)
                .Cells(Lig + 1, 4) = Cel.Offset(0, 2)
                .Cells(Lig + 1, 5) = Cel.Offset(0, 3)
            End With
        End If
    Next Cel
End Sub

A + à tous

 

[Adamev]

Re : Recherches de doulons dans une liste

Bonsoir GCGL, le forum;

Bravo GCGL! c'est parfait, ça correspond à mon souhait et m'a épargné beaucoup de temps, c'est testé minutieusement.
Un grand merci.