Bonjour,
J'ai établi un code pour empêcher de rentrer des doublons dans une banque de données via un userform.
Jusqu'ici il marche, néanmoins lorsque les valeurs ne sont exprimées qu'en chiffres, là le doublon n'est pas détecté et est quand même rentré dans la base de données.
Voici mon code :
Private Sub CommandButton1_Click()
Dim n As Integer
For n = 2 To 400
If TextBox1.Value = Sheets("Banque_de_données").Range("I" & n).Value Then
MsgBox "Ce nom existe déjà dans la liste !"
Unload Me
AjoutCalBdd.Show
Exit Sub
End If
Next n
If Sheets("Banque_de_données").Range("I2") = "" Then
Sheets("Banque_de_données").Range("I2") = TextBox1.Value
Else
Sheets("Banque_de_données").ListObjects(4).ListRows.Add
dlt = Sheets("Banque_de_données").Range("I1048576").End(xlUp).Row
Sheets("Banque_de_données").Range("I" & dlt) = TextBox1.Value
End If
MsgBox ("Calibre rentré dans la BDD")
Suivi d'une fonction de tri croissant.
Merci pour votre aide, Tom