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 :
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
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 :
Code:
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 IfMais 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