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 !!