Contrôle doublon lors saisie textbox dans userform

[JC17200]

Bonjour,
J'ai créé un userform pour enregistrer des nouveaux clients dans une base de données.
Je recherche une façon de controler la présence de doublon lors de la saisie (à savoir si le nom et le prénom sont déjà présents, arrêt de la création du client).
Si quelqu'un a une idée...
Merci d'avance.
Ci-joint, petit bout du fichier pour exemple..

 

[JC17200]

Re : Contrôle doublon lors saisie textbox dans userform

Bon, je vois que ça vous inspire beaucoup.. ^^

 

[Pierrot93]

Re : Contrôle doublon lors saisie textbox dans userform

Bonjour,

regarde peut être du coté de la méthode "Find" dans l'aide vba, si trouvé à comparer avec la celluled'à coté via "Offset"...

bon après midi
@+

 

[JC17200]

Re : Contrôle doublon lors saisie textbox dans userform

je vais me pencher là dessus.
Merci.

 

[Dranreb]

Re : Contrôle doublon lors saisie textbox dans userform

Bonjour
Ajoutez ces procédures dans votre userform:

Private Sub nom_Change()
VérifExistence
End Sub
Private Sub prenom_Change()
VérifExistence
End Sub
Private Sub VérifExistence()
Dim TV() As Variant, L As Long
TV = Feuil2.[D:E].Value
L = 1
Do: L = L + 1
   If TV(L, 1) = "" And TV(L, 2) = "" Then Exit Sub
   If TV(L, 1) = nom And TV(L, 2) = prenom Then Exit Do
   Loop
MsgBox nom & " " & prenom & " existe déjà"
End Sub

Ce n'est qu'un principe, ça peut s'améliorer.
À +

 

[JC17200]

Re : Contrôle doublon lors saisie textbox dans userform

Bonjour,
Ton code me convient parfaitement.
Merci beaucoup et bonne journée

 

[Dranreb]

Re : Contrôle doublon lors saisie textbox dans userform

Ton code me convient parfaitement.

Il ne devrait pas à mon avis.
Moi j'en profiterais pour renseigner tous les champs à partir des informations de la ligne trouvée, je transformerais le Caption du bouton Valider en "Modifier". En contrepartie si la ligne n'existe pas j'y mettrais "Ajouter".
Non je ferais encore mieux: je rendrai aussi invisible ce bouton valider jusqu'a ce qu'une différence entre un champ et la ligne soit introduite.
Mais c'est à vous de voir, selon vos nécessités et motivations, compétences présente et avenir souhaitée.
Cordialement.