XL 2013 Userform double condition

[a_loic]

Bonjour,

Aujourd'hui je bloque sur un truc tout bête ...

Voilà mon problème, j'ai créé un UserForm qui enregistre des données dans une base de données.

Je veux être sûr qu'il soit impossible de saisir un même client (TextBox24) sur une même journée (TextBox23).

J'ai donc mis :

Dim rg As Range
Dim rg2 As Range

Set rg = Sheets("Dpt BDD").Range("B:B").Find(TextBox24.Text, LookIn:=xlValues, LookAt:=xlWhole)
Set rg2 = Sheets("Dpt BDD").Range("A:A").Find(TextBox23.Text, LookIn:=xlValues, LookAt:=xlWhole)

If Not rg And rg2 Is Nothing Then
    MsgBox "Client déjà enregistré ce jour"
    Cancel = True
With Me
    .TextBox24.Value = ""
    .TextBox25.Value = 0
End With
Exit Sub
End If

Mais j'ai dû rater quelque chose car même lorsque je change la date, on me dit que le client a déjà été enregistré.

Pouvez vous éclairer ma lanterne svp ?


Un grand merci par avance,
Bonne journée,
Bon dimanche,
Loic