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