refuser insert doublons

[mikepers]

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

 

[david84]

Re : refuser insert doublons

Bonjour,
l'un des moyens est d'utiliser la fonction CountIf afin de vérifier si la valeur existe déjà (mais il existe d'autres possibilités).
A+

 

[mikepers]

Re : refuser insert doublons

Merci david je me renseigne sur cette valeur
merci