empecher la saissie d'une date si elle est superieure a la date du jour

Pierrot93

XLDnaute Barbatruc

• 15 Mars 2010

• #2

Re : empecher la saissie d'une date si elle est superieure a la date du jour

Bonjour Creolia

regarde le code ci-dessous si il peut t'aider :

Code:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox1) Then Exit Sub
If CDate(TextBox1.Value) > Date Then
    MsgBox "date invalide..."
    TextBox1 = ""
    Cancel = True
End If
End Sub

bon après midi
@+

 

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 15 Mars 2010

• #3

Re : empecher la saissie d'une date si elle est superieure a la date du jour

Bonjour et merci pour ton aide j'ai appliquer ton code il me fais une erreur et me dit que erreur de compilation projet ou bibliotheque introuvable en surlignant date du code

Code:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox1) Then Exit Sub
If CDate(TextBox1.Value) > [B][COLOR=blue]Date[/COLOR][/B] Then
    MsgBox "date invalide..."
    TextBox1 = ""
    Cancel = True
End If
End Sub

a tu une idée d'ou sa peut venir

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Mars 2010

• #4

Re : empecher la saissie d'une date si elle est superieure a la date du jour

Re

tu as bien positionné ce code dans le module d'un USF ??? tu n'as pas une variable nommée "date" ??? tu peux essayé en modifiant ainsi :

Code:

If CDate(TextBox1.Value) > VBA.Date Then

@+

Edition : vérifie également si tu n'as pas une référence manquante, Editeur vba => barre de menu => outils => références...

 

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 15 Mars 2010

• #5

Re : empecher la saissie d'une date si elle est superieure a la date du jour

Merci a toi le module fonctionne bien desormais le seul bemol enfin c'est pas tres grave mais quand je met le 17/03/2010 il reagit

en revanche si je met le 16/03/2010 il laisse faire mais bon c'est pas tres grave je trouvais sa juste marant sur le coup


merci pour ton aide precieux a bientot

 

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 15 Mars 2010

• #6

Re : empecher la saissie d'une date si elle est superieure a la date du jour

Re finalement sa fonctionne un bug passager merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Mars 2010

• #7

Re : empecher la saissie d'une date si elle est superieure a la date du jour

Re,

devrais réagir sur les 16 et 17 mars, car dates supérieures à aujourd'hui... fonctionne ainsi chez moi... vérifie peut être ta date système, ou le format utilisé pour saisir ta date...

 

Vote positif 0 Vote négatif