Discussion :

[malekbc]

Bonjour,

J ai une grande base de donnees contenant deux colonnes.
Colonne A : Prenoms
Colonne B : Noms

Dans cette base, il y a un probleme concernant la saisie des noms prenoms. La personne qui fait cette saisie peut ecrire le nom de la personne plusieurs fois ou bien il peut se tromper souvent en ecrivant le prenom de la personne a la place du nom et vice versa. Du coup, on risque d"avoir deux ou plusieurs personnes identiques dans la meme base.

Exemple :

Colonne A -Colonne B
Maria - Silva
Silva - Maria


Je souhaite avoir une fonction/ Macro pour identifier les personnes identiques et calculer le nombre de doublons.

Exemple :

Colonne A - Colonne B
Maria - Silva
Martin - Roland
Silva - Maria
Martin - Roland
Maria -Silva

Ici, La personne Maria Silva se repete 3 fois et Martin Roland se repete 2 fois.
Merci beaucoup pour votre aide.
J utilise Excel 2010.

[jeanmidudu]

Bonjour,

Comme toujours dans ce forum : A toi de programmer, commence par faire un petit code, même simple et si tu as problèmes, nous t'aiderons à les résoudre. Par contre, nous ne ferons pas le travail à ta place.
Quelques petites pistes pour te guider :
Utiliser 2 boucles (une pour parcourir chaque colonne)
un autre sujet similaire (parmi les très nombreux existants) ouvert aujourd'hui https://www.developpez.net/forums/d1...le-2-fichiers/


Petite remarque : Excel n'est pas une base de données

[unparia]

Bonjour
L'utilisation toute simple d'une collection est l'une des solutions --->>
Si l'on a "A" et "B" -->> on crée dans la collection un élément "A-B" et un élément "B-A"

Toute tentative d'y inscrire alors un nouvel élément "B-A" ou "A-B" sera dès lors dénoncée (erreur à gérer ) -->> doublon alors repéré.

PS : ce n'est pas par hasard, que j'ai choisi une collection plutôt qu'un dictionnaire. Une collection n'est pas, elle, dépendante de la machine d'utilisation, tandis qu'un dictionnaire l'est (VBS est inhibé sur certaines machines).

[joe.levrai]

Bonjour,

pour prolonger l'analyse de unparia, et afin d'éviter de se retrouver avec des "simili-doublons" (A-B | B-A), il serait intéressant de vérifier, lors de l'ajout d'un élément, si l'un des deux existe

même si ce n'est pas l'objet le plus natif qui soit, le dictionnaire serait plus pratique, pour utiliser la méthode exists au lieu d'une gestion d'erreur ?

par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub toto()
Dim MonDico As Object, MesAgents(), i As Long, c
Const SEP As String = "||"
 
' récupération de la liste
MesAgents = Range("A1").CurrentRegion.Value
 
' création du dictionnaire
Set MonDico = CreateObject("scripting.dictionary")
 
' pour chaque agent
For i = LBound(MesAgents, 1) To UBound(MesAgents, 1)
    ' si l'association A||B  ET B||A n'existe pas : on crée A||B
    If Not MonDico.exists(MesAgents(i, 1) & SEP & MesAgents(i, 2)) _
    And Not MonDico.exists(MesAgents(i, 2) & SEP & MesAgents(i, 1)) Then
        MonDico.Add MesAgents(i, 1) & SEP & MesAgents(i, 2), 1
    End If
Next i
 
' affichage de la liste unique
For Each c In MonDico.keys
    Debug.Print c
Next c
 
End Sub

[unparia]

Bonjour joe.levrai

Ou encore (si l'on n'est à l'aise ni avec les collections, ni avec les dictionnaires) : une feuille tremplin toute bête -->> on y ajoute "B-A" & "A-B" que ni non déjà là (COUNTIF = 0). Et si COUNTIF > 0 --->> on sait qu'il s'agit d'un doublon

[joe.levrai]

[Igloobel]

Bonjour à tous,

perso je préfère les tests dès la saisie du genre : "si cela existe on enregistre pas"

voici un exemple simple à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
' Si la cellule est dans la colonne A
    If Target.Column = 1 Then
        ' Pour chaque ligne au dessus, en  remontant (Step -1) jusqu'à la première
        For i = Target.Row - 1 To 1 Step -1
            ' Si le contenu de la cellule existe déjà :
            If Cells(Target.Row, Target.Column).Value = Cells(i, Target.Column).Value Then
                MsgBox "La réf " & Cells(Target.Row, Target.Column).Value & " existe déjà !"
                Cells(Target.Row, Target.Column).Value = ""
            End If
        Next
    End If
End Sub

je fais pas plus vu qu'il se manifeste peu

[unparia]

Bonjour Igloobel
- Tu as parfaitement raison de ne pas attendre pour contrôler. J'en fais généralement autant
- Le véritable problème va bien au-delà -->> Rien (jamais rien) n'empêchera jamais l'existence de deux personnes totalement différentes et dont le patronyme de l'une est le vraiment le prénom de dont le prénom de l'une est vraiment le patronyme de l'autre.
PIERRE Jean et JEAN Pierre ne sont pas forcément impossibles, hein ... et google devrait en trouver des tas ...

PS et c'est en plus sans compter le fait qu'un patronyme et un prénom ne sauraient à eux-seuls, constituer un "idart" certain. J'ai déjà eu plusieurs fois à en parler dans d'autres discussions sur ce forum.

[Marc-L]

Bonjour !

Sans compter les composés, les tirets saisis ou pas, etc …
Il faut juste un cerveau derrière la saisie et si erreur il y a, juste taper sur les doigts de sa source !

Je souhaite avoir une fonction/ Macro pour identifier les personnes identiques et calculer le nombre de doublons.

Si j'avais été le premier à intervenir, j'aurais répondu que je souhaitais alors une présentation de la logique,
de l’algorithme précis à appliquer dans un code, ce que doit déjà fournir tout demandeur maitrisant son sujet …
Ceci devant à 95% tuer dans l’œuf cette discussion improbable !
Et face à une nouvelle tentative du demandeur, j'avais déjà en réserve le même argument d'unparia
à savoir Mr Jean PAUL et Mr Paul JEAN, deux personnes bien différentes et non pas un doublon !
Et puis dans le cas d'un doublon, comment savoir si c'est la nouvelle saisie qui est fausse alors qu'il se pourrait que ce soit la première !

Au final pour ceux disposant d'une paire de neurones, évidemment il ne faut pas se contenter des prénom & nom
à des fins de contrôle mais bien d'un troisième critère univoque comme par exemple un identifiant, un numéro de sécu, etc …
comme toute base de données bien conçue et, si tel n'est pas le cas, alors elle n'est pas digne de ce nom
- déjà se trouvant dans Excel elle ne mérite pas cette appellation - et ne serait juste qu'une vulgaire table !

[Invité]

Bonjour,
il faut utiliser un grand nombre d’échantillons pour définir ce qui est un prénom!

https://www.developpez.net/forums/d1...s/#post8712760

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
Set Cn = OpenConnetion(ThisWorkbook.Path & "\Prénom.xlsx", True)
End Sub

Code Module standard! :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Public Cn As Object
Public Function OpenConnetion(FichierXls As String, AvecTitre As Boolean) As Object
'ouvre la connexion au fichier Excel
'FichierXls non et chemin complet du fichier
'AvecTitre précise si la première ligne de l'onglet est les entête de colonnes ou pas
'rzutourne la connexion
On Error Resume Next
Dim HDR
If Dir(FichierXls) = "" Then MsgBox FichierXls & vbCrLf & "Pas trouvé": Exit Function ' versifie si le fichier existe
HDR = Array("No", "Yes")
Set OpenConnetion = CreateObject("ADODB.Connection") 'Instancie un objet adosb c'est mieux que d'utiliser le références
With OpenConnetion
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source=" & FichierXls & ";Extended Properties=""Excel 12.0 Xml;HDR=" & HDR(Abs(AvecTitre)) & ";IMEX=1;"""
        .Open
        If Err Then
            MsgBox Err.Description
            Set OpenConnetion = Nothing
        End If
        Err.Clear
        On Error GoTo 0
End With
End Function
Public Function OpenRecordSet(Sql, Cn As Object) As Object 'Retourne un recordset
'Retourne un RecordeSet
On Error Resume Next
Set OpenRecordSet = CreateObject("ADODB.Recordset")
OpenRecordSet.Open Sql, Cn, 1, 3 'ouvre un recordset sur la requête SQL pour la connexion en lecteur écriture et ajou dynamique
If Err Then
    MsgBox Err.Description
Set OpenRecordSet = Nothing
End If
Err.Clear
On Error GoTo 0
End Function
Public Function IsPrenom(Pnm As String) As Boolean
Dim Rs As Object
Set Rs = OpenRecordSet("select * from [Prénom$] Where [Prénom]='" & Replace(Pnm, "'", "''") & "'", Cn)
IsPrenom = Not (Rs.EOF)
Rs.Close: Set Rs = Nothing
End Function

[78chris]

Bonjour à tous

A noter que le demandeur a multi posté sur n forums...

[Invité]

Il faut,comme sais l'usage, considérer le nom à gauche! Spliter le texte et balayer le Array! On considère comme nom la première occurrence si c'est un prénom et les autres valeurs si ce sont également des prénom comme des prenons composés! Si dans notre traitement on trouve une occurrence qui n'est pas un prénom on la garde comme nom! Elle ce trouve a droit ou a gauche jamais au milieu!

J'ai fait ce genre de blague pour un grands groupe d'assurance, nous étions deux sur le sujet! Il fallait créer notre propre échantillonnage (à partir de rien), nous sommes tomber sur un écart de deux!

[patricktoulon]

bonsoir
perso j'ai une question
depuis quand vba ou meme exel a une librairie de nom/prenom
non parce que sans ca je vois mal comment exelo ou vba peut deviner quoi est le prenom et quoi est le nom
la seule chose que tu peux te contenter et c'est la ou s'arrete les limite d'exel c'est de pouvoir trouver les doublons meme inversés et c'est tout determiner le prenom/nom c'est pas possible
a moins qu'il y est eu une mise a jour d'excel que j'ai pas eu

perso moi tu te presente sous le nom de maria silva je ne saurait dire quel est le nom ou le prenom sachant que les deux sont utilisés pour les deux sauf quelques regions dans le monde ou "silva" est un nom qui reprend le nom d'une apartenance a une classe de population
alors parti de la prenom ou nom pas possible en VBA

[unparia]

Bonjour Robert

nous sommes tomber sur un écart de deux!

Même un seul serait déjà trop et la cause potentielle de dégâts induits.

PS : tiens ... je viens justement de voir dans les nouvelles d'aujourd'hui la relation d'une mésaventure désagréable : une homonymie mal gérée a eu pour résultat la présentation, à la famille du défunt, d'une bière contenant la dépouille mortelle d'un homonyme....
L'entreprise de pompes funèbres en cause a présenté ses excuses (!) et a dit que cela ne lui était jamais arrivé auparavant. Il y a, ma foi, souvent une "première fois". Et une "première fois" qui risque fort de coûter très cher.
Amitiés

[Invité]

Salut unparia,
Quand je dis écart de deux, il est bien évident que nous avons qualifié manuellement!

Il est vrai que le risque est grand même quand on est sur de son coup, surtout pour du traitement de masse!
Pierre Matthieu? Le quel est le nom, si il s'agit de courier, la lettre arrivera mais dans d'autre circonstances? Il suffit que le propriétaire du patronyme ne soit pas content!

Il faut vérifier si il y a pas des Pierre Matthieu,Giselle Matthieu épouse de Pierre Matthieu!

On a vite fait de divorcer de couple 💑!

[Invité]

Bonsoir Patrick,
Je reprends ton poste #13.

Entièrement d'accord avec toi. Mais parfois il faut un arbitraire! J'ai migré une base ou nom prénom était dans le même champs vers une autre ou les champs étaient séparé et mon job était effectivement de trouver une règle de nomage pour faire ça! Et bien quand on as un doute on tranche avec les opérat(eur/rice) de saisies!

Si non inverser le nom et le prénom pour déboulonner si j'ai 4 prénom?

Tout les coups sont permis F/H avec l numéro de sécu etc...

[Marc-L]

Ici s'il s'agit juste de lister d'éventuels doublons, déjà sans code avec formules dans deux-trois colonnes supplémentaires
puis un filtre ou encore une filtre avancé, bref du B-A-BA d'Excel torché en quelques secondes !
Par contre le contrôle effectif et une éventuelle action ne pourront être automatisés …

[Invité]

Bonjour,
Le plus simple selon moi, car il ne s'agit ici de doublonné , c'est de concaténer les deux colonnes et de trier chaque mot par ordre alphabétique!

[unparia]

c'est de concaténer les deux colonnes et de trier chaque mot par ordre alphabétique!

Bonjour Robert
Et ?
Comment ce tri montrera-t-il à la suite (pour les repérer) !
Anna-Karena
et
Karena-Anna

?

Il permettra de voir s'il y a plusieurs "Anna-Karena" ou plusieurs "Karena-Anna", mais je vois mal comment il permettrait de voir si "coexistent" Anna-Karena et Karena-Anna ...

[Invité]

Bonjour unparia,

Il est facile de reformater le texte biffer le mention inutile comme le double espaces!

Voila Anna Karena;Karena Anna! Le but étant de créer une autre valeur qui n'a rien a voir avec nom prénom mais avec les doublons!

Je pourrais rajouter l'adresse pour deux homonyme un à paris l'autre à bordeaux!

Pour les fautes d'horographe il faut revenir au minitel!