Détection doublon
Bonjour à tous !
J'ai besoin de votre aide.
Je possède un annuaire d'environ 30 000 lignes. Il contient plusieurs champs. Ceux qui m’intéresse sont les Noms et Prénoms.
Y a t-il un moyen de faire une analyse sur les noms et prénoms approchants ( composé, avec tiret, avec accent etc).
Exemple, je vais pouvoir trouver un Jean Philippe et un Jean - Philippe . Et il s'avère que c'est bien la même personne (à l'aide de la correspondance des autres champs).
J'ai effectué plusieurs axes de recherches (Inversions nom et prénom, chevauchement entre date d'entrée et date de sorties etc.)
Il me manque plus que cet axe là.
Merci à vous
Bonjour,
En essayant d'uniformiser tes noms et prénoms, un petit exemple :
Sub Test()
Dim Chaine As String
Chaine = "philippe - andré"
Chaine = Replace(Chaine, " - ", " ")
Chaine = Replace(Chaine, "-", " ")
Chaine = SansAccent(Chaine)
Chaine = Application.Proper(Chaine)
MsgBox Chaine
End Sub
Function SansAccent(Chaine As String) As String
Dim Tbl() As Byte
Dim I As Integer
Tbl = StrConv(Chaine, vbFromUnicode)
For I = 0 To UBound(Tbl)
Select Case Tbl(I)
Case Is < 192
Case 232 To 235: Tbl(I) = 101
Case 224 To 229: Tbl(I) = 97
Case 249 To 252: Tbl(I) = 117
Case 236 To 239: Tbl(I) = 105
Case 242 To 246: Tbl(I) = 111
Case 253, 255: Tbl(I) = 121
Case 241: Tbl(I) = 110
End Select
Next I
SansAccent = StrConv(Tbl, vbUnicode)
End FunctionMerci à vous !
J'essaierai sur mon poste de travail demain, je vous tiens au courant.
Bonjour,
Une petite contribution.
Cdlt.
davbis.xlsx
Merci encore pour ta contribution.
Cependant, étant débutant sur excel, j'ai du mal à comprendre ta fonction F4 et G4. A mon avis elle prend en compte le tiret(-) et les espaces mais je ne sais pas où la placer exactement.
Dans le fichier ci-joint peut tu m'indiquer comment mettre en place ta fonction ?
Merci encore vous êtes au top ici !
Bonjour,
Tout est dans le fichier !?
Regarde l'aide Excel sur les 2 fonctions : SUPPRESPACE() et SUBSTITUE().
Cdlt.
Bonjour,
Merci pour ta réponse.
Je vais regarder tout ça, merci
Bonjour,
Tout est dans le fichier !?
Regarde l'aide Excel sur les 2 fonctions : SUPPRESPACE() et SUBSTITUE().
Cdlt.
Il me semble que cette fonction (=SUPPRESPACE(SUBSTITUE(D5;"-";" ")) ne prend pas en compte les accents. Exemple : Andre Dupont
André Dupont
Est ce bon si je rajoute : =SUPPRESPACE(SUBSTITUE(D5;"-";" ";" é ")) ?
Merci
Bonjour,
En essayant d'uniformiser tes noms et prénoms, un petit exemple :
Sub Test() Dim Chaine As String Chaine = "philippe - andré" Chaine = Replace(Chaine, " - ", " ") Chaine = Replace(Chaine, "-", " ") Chaine = SansAccent(Chaine) Chaine = Application.Proper(Chaine) MsgBox Chaine End Sub Function SansAccent(Chaine As String) As String Dim Tbl() As Byte Dim I As Integer Tbl = StrConv(Chaine, vbFromUnicode) For I = 0 To UBound(Tbl) Select Case Tbl(I) Case Is < 192 Case 232 To 235: Tbl(I) = 101 Case 224 To 229: Tbl(I) = 97 Case 249 To 252: Tbl(I) = 117 Case 236 To 239: Tbl(I) = 105 Case 242 To 246: Tbl(I) = 111 Case 253, 255: Tbl(I) = 121 Case 241: Tbl(I) = 110 End Select Next I SansAccent = StrConv(Tbl, vbUnicode) End Function
Bonjour,
Merci pour ta réponse.
Je n'ai jamais utilisé de macro ..
Elle a pour but de traiter que le prénom Phlippe - andré ?
Merci
Bonjour,
Mon problème a mal était expliqué.
Ci-joint le fichier Excel avec 2 noms et prénoms composé et non composé (en réalité il s’agit bien de la même personne).
Mon objectif serait que dans la colonne C, on m’indique pour les lignes en questions “Problème“, sinon “Ok“.
Je ne sais pas si cela est possible, peut-être l’utilisation d’une macro serait dans ce cas primordiale.
J’espère que quelqu’un d’entre vous aurez une solution à me proposer
Bonjour,
Ton classeur en retour pour un test pas vraiment optimisé pour 30 000 lignes mais tu verras déjà ce que ça peut donner, pour l'optimisation on peut voir plus tard à l'aide de tableau (cliques sur le bouton) :
Merci à toi !
C'est parfait pour mon besoin.
Merci bcp