Eviter doublon

[Pedro]

Bonjour,

Deux champs Nom et Telephone sont renseignés à partir deux Textbox. Afin d'éviter la saisie de doublons je souhaiterais refuser l'insertion dans la feuille (avec un message: "ce enrégistrement existe déjà") après validation du "OK". La condition doit se porter sur les deux champs: Pour être valable deux enrégistrements ne doivent pas avoir le même Nom et le même Numero de Telephone.



Merci

 

[michel]

bonsoir Pedro

j'espere que l'exemple joint repondra à ta demande


bonne soiree
michel

 

[Pedro]

Merci beaucoup Michel to eexemple répond bien à mon attente.
Dans ton exemple quand je rentre le numero de telephone dans le userform il es tde ce format 01 22 33 44 55 Je souhaiterais que dans la table les espaces n'existent pas c'est à dire: 0122334455.

Merci

Pedro

 

[michel]

bonjour Pedro

si tu ne souhaites pas de mise en forme particuliere dans le textbox , tu peux enlever les deux macros ci dessous dans l'USF

Private Sub TextBox2_Change()
'option mise en forme automatique du numero de telephone
Dim Cible As String
Cible = TextBox2
Select Case Len(Cible)
Case 2, 5, 8, 11
TextBox2 = TextBox2 & " "
End Select
End Sub

Private Sub UserForm_Initialize()
'option limiter le nb de caracteres lrs de la saisie du numero de telephone
TextBox2.MaxLength = 14
End Sub


bonne soiree
michel