Controle de Doublons

Dull

XLDnaute Barbatruc

• 29 Octobre 2011

• #2

Re : Controle de Doublons

Salut Max, le Forum

je te conseil de remettre tes fichiers mais anonymisés (Noms, Adresse, mail et N° de Téléphone) Pas très prudent tout cela

EDITION: Salut David 🙂 ...Presque midi ici 😉

Bonne Journée

 

Dernière édition: 29 Octobre 2011

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 29 Octobre 2011

• #3

Re : Controle de Doublons

Bonjour,

Je recherche une façon de contrôler la présence de doublon lors de la saisie (à savoir si le nom/prénom sont déjà présents, par un message et un arrêt de la création).

Cliquez pour agrandir...

et pour les possibles homonymes tu fais comment ? Je pense qu'il te faut donc rechercher si le même nom existe déjà dans la BD (en te servant de Find ou de Match par exemple), puis ensuite comparer toute la ligne trouvée avec les données entrées dans ton formulaire. Si l'ensemble de ces données sont identiques, alors, lors de la validation, apparition d'une boîte de dialogue t'indiquant que c'est un doublon.
Il y a sûrement sur le forum des exemples de ce type.
A+
Edit : mes amitiés du matin (en tout cas en Provence c'est le cas🙂) à Dull

 

Vote positif 0 Vote négatif

D

dra72

XLDnaute Occasionnel

• 29 Octobre 2011

• #4

Re : Controle de Doublons

Bonjour à tous.

Pour le risque d'homonymie, tout dépend du nombre d'adhérents. (si inférieur à 100, je pense qu'on peut se limiter aux nom et prénom).

Au delà, peut être y inclure la date de naissance en étant attentif à un format unique.

A partir du moment où l'on retrouve ces 2 ou 3 données dans la base, on peut mettre à jour la propriété Listindex de Combobox1 et on bascule en mode modification ou suppression.

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 29 Octobre 2011

• #5

Re : Controle de Doublons

Bonjour Dull, David84, Jean Marcel, Dra72,

Merci de vos intervention. Pour se qui concerne l'anonymat de mon fichier pas de problème toute les infos sont bidons mais je te remercie cas même Dull d'avoir été de bon conseils.

Pour le reste les adresses peuvent être identique ont peu habité dans le même immeuble mais se que dit David est exact je vais essayer (en me servant de Find ou de Match) je crois que je vais me pencher de se côté la! Si j'ai pas d'autre solution et pour le nombre d'adhérents il ne seras jamais supérieur a 100.

Bonne journée et merci encore

@+
Max

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 29 Octobre 2011

• #6

Re : Controle de Doublons

Re,

Je voudrais revenir sur le code de Jean-Marcel qui a mon avis a un problème ou alors sa vient de moi?

Quand j'ajoute un adhérent et qu'il existe dans la liste il y a un message d'erreur en m'annonçant "Noms doublonné" juste qu'ici pas de problème après avoir cliquet sur OK du MsgBox il remet les textBox à vide mais il envoie les infos sur la feuille.
Ma question comment peut on empêcher qu'il envoie les infos sur la feuille.

Un très grand merci à tout ceux qui pourront m'aider...

Cordialement

Max

 

Pièces jointes

• Form_doublons44.xls

  86 KB · Affichages: 148

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 29 Octobre 2011

• #7

Re : Controle de Doublons

Re;

Non voila, moi se que j'aimerais c'est que lorsque je rentre un nom dans le textBox nommer "txtNom" et qu'il existe déjà, je reçois un message comme quoi le nom existe déjà et qui me réinitialise l'USF. Voilà un truc comme sa.

Bonne soirée

@+

Max

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 30 Octobre 2011

• #8

Re : Controle de Doublons

Bonjour Jean-Marcel

C'est exactement ma recherche je te remercie infiniment. J'ai essayé de mettre après le message, comme quoi le nom exister déjà le Focus au texNom sa ne marche pas j'ai du me trompé j'ai fait ceci:

Code:

Private Sub txtNom_AfterUpdate()
    txtNom = Application.Proper(txtNom.Value)
     If txtPrenom <> "" And txtNom <> "" Then
        ' Contrôle doublons
       With Sheets("Adhérents")
            On Error Resume Next
                myVar = 0
                myVar = Application.WorksheetFunction _
                .Match(txtNom & " " & txtPrenom, .Range("B1:B1000"), 0)
                If myVar <> 0 Then
                    MsgBox "Noms et prénom doublonné"
                     [B]txtNom.SetFocus[/B]                    
                    txtPrenom = ""
                    txtNom = ""
                End If
            On Error GoTo 0
        End With
    End If
End Sub

Peut tu me dire ou je me suis trompé?
Si non Nickel

Je te souhaite une bonne journée

@+
Max

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 30 Octobre 2011

• #9

Re : Controle de Doublons

Re,

Je te remercie et bonne journée

@+
Max

 

Vote positif 0 Vote négatif