Formulaire saisie sans doublon

[mordious]

bonjour
dans un formulaire je souhaite que lors d'une nouvelle saisie de la date "TesBox1" il me soit impossible de saisir une date déjà présente dans l'onglet "data"
avec MsgBox "date déjà présente"
TextBox1.SetFocus

ci-joint fichier

Cordialement
Mordious

 

[Dranreb]

Re : Formulaire saisie sans doublon

Bonsoir.
On peut difficilement empêcher de la saisir mais on peut empêcher qu'elle puisse être validée.
Essayez ça :

Private Sub TextBox1_Change()
On Error Resume Next
CommandButton1.Enabled = Feuil2.Columns("D").Find(What:=CDate(TextBox1.Text), LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False) Is Nothing
If Err Then CommandButton1.Enabled = False
End  Sub

remarque ne cherche qu'une vraie date correspondant au TextBox1, ne tient pas compte des textes qui ont la même apparence qu'une date.

 

[mordious]

Re : Formulaire saisie sans doublon

Bonsoir

ne fonctionne pas
peut être une incompréhension de ma par (je débute avec VBA)
voir fichier joint

cordialement
Mordious

 

[Dranreb]

Re : Formulaire saisie sans doublon

Si, j'ai vérifié, ça fonctionne. Le problème c'est que vous inscrivez dans la cellule le texte brut contenu dans TextBox1 au lieu d'y inscrire sa conversion en Date au moyen de la fonction CDate

 

[mordious]

Re : Formulaire saisie sans doublon

donc si j'ai bien compris c'est une histoire de conversion du texte brut de TextBox1 en valeur date?
si c'est le cas ou et comment inclure la fonction CDate
cordialement
Mordious

 

[mordious]

Re : Formulaire saisie sans doublon

c'est bon j'ai trouvé
Private Sub copie()
With Worksheets("data")

i = .Range("d" & Rows.Count).End(xlUp).Row + 1
.Cells(i, 4) = CDate(TextBox1)
End With
End Sub

 

[mordious]

Re : Formulaire saisie sans doublon

merci pour tout

cordialement

Mordious