Formulaire saisie sans doublon

Dranreb

XLDnaute Barbatruc

• 21 Décembre 2013

• #2

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 :

VB:

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.

 

Vote positif 0 Vote négatif

M

mordious

XLDnaute Occasionnel

• 21 Décembre 2013

• #3

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

 

Pièces jointes

• Classeur1.xlsm

  21.9 KB · Affichages: 38
• Classeur1.xlsm

  21.9 KB · Affichages: 43
• Classeur1.xlsm

  21.9 KB · Affichages: 55

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Décembre 2013

• #4

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

 

Vote positif 0 Vote négatif

M

mordious

XLDnaute Occasionnel

• 22 Décembre 2013

• #5

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

 

Vote positif 0 Vote négatif

M

mordious

XLDnaute Occasionnel

• 22 Décembre 2013

• #6

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

 

Vote positif 0 Vote négatif

M

mordious

XLDnaute Occasionnel

• 22 Décembre 2013

• #7

Re : Formulaire saisie sans doublon

merci pour tout

cordialement

Mordious

 

Vote positif 0 Vote négatif