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

[creolia]

bonjour je souhaite inserer une macro a ma textbox qui ne valideras pas la date si celle ci est superieure à la date d'aujourdhuis

evidement je sais pas comment m'y prendre quelqu'un aurais t'il une astuce a bientot et merci d'avance

 

[Pierrot93]

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 :

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
@+

 

[creolia]

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

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

 

[Pierrot93]

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 :

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...

 

[creolia]

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

 

[creolia]

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

Re finalement sa fonctionne un bug passager merci

 

[Pierrot93]

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...