refuser insert doublons

mikepers

XLDnaute Occasionnel
Bonjour.
J'ai une base de donnée en VBA utilisée par plusieurs personnes.
a un moment donné par erreur un intervenant va rentrer une donnée qui avait déjà été rentrée. Comment refuser l'insert si les données sont déjà dans la BD? je pensais a un refus d'insérer et une info msgbox. comment l'exprimer ?
Un partie de mon code d'insert :

Private Sub CommandButton1_Click()
'validation des données'
If MsgBox(" Enregistrer le nouveau DCP? ", vbQuestion + vbYesNo, " Confirmation ") <> vbYes Then
Exit Sub
End If

Application.ScreenUpdating = False
Sheets("base de donnée").Visible = True

Sheets("base de donnée").Select
Dim x As Integer

x = Range("A32767").End(xlUp).Row + 1
Range("A" & x) = TextBox1.Value 'titre
Range("B" & x) = TextBox2.Value 'notes

' je n'ai pas mis ici le reste des inserts il y en a beaucoup....
bref comment exprimer : si le texte existe déjà en colonne A, alors : message box et exit sub
merci
 

Discussions similaires

Réponses
77
Affichages
5 K

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof