Utilisation de la fonction BeforeUpdate

Bonjour,

J'ai crée un formulaire de saisie pour ajouter des référence dans ma base de données.

Je voudrais faire apparaître un message d'erreur lorsque j'essaye de créer une référence qui existe déjà dans ma colonne A

j'ai essayé ce code :

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

Dim rg As Range

Set rg = Sheets("Engagements").Range("A:A").Find(TextBox1.Text)

If Not rg Is Nothing Then

    MsgBox "numéro existant"
    Cancel = True

End If
End sub

Le problème c'est que lorsque la référence existe déja, il me met un "1" dans la cellule alors que je ne veux pas.

Merci d'avance !!

Le "1" provient de la valeur de retour de ma message box lorsque ma référence existe déjà. Comment éviter cela ??

Rechercher des sujets similaires à "utilisation fonction beforeupdate"