chaelie2015
XLDnaute Accro
Bonjour Forum
Je souhaite afficher un message « Attention, c’est un doublon ; voulez vous contenu ? » avant la validation ,Si la valeur saisie dans le textbox1 de UserForm2 existe dans la colonne L de la feuille « BdD »
Salutations
Je souhaite afficher un message « Attention, c’est un doublon ; voulez vous contenu ? » avant la validation ,Si la valeur saisie dans le textbox1 de UserForm2 existe dans la colonne L de la feuille « BdD »
Code:
Private Sub CommandButton1_Click()
Sheets("INTERIM").Range("C8") = TextBox1.Value
Sheets("BdD").Range("L" & Sheets("BdD").Range("L" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox1.Value & "/KDT.RH/" & Year(Date)
Unload UserForm2
End Sub