Date entre 2009 et 2012

[apdf1]

Bonjour,

Voila je recherche un code pour que l'utilisateur soit obliger de mettre une date entre l'année 2009 à 2012 dans un textBox sur USF.

Un très grand merci à tout ceux qui pourront m'aider...

Cordialement
Max

 

[roro69]

Re : Date entre 2009 et 2012

Bonjour
Au lieu de la text box pourquoi ne pas mettre soit une combo ou une listbox avec les valeurs 2009 , 2010,2011,2012..............

A++

 

[dra72]

Re : Date entre 2009 et 2012

Bonjour,

Un petit aperçu:

Regarde la pièce jointe Date 2009 2012.xls

Bonne journée.

 

[dra72]

Re : Date entre 2009 et 2012

Rebonjour,

Il serait bon de modifier la fonction CtrlDate de mon code précédent par:

Public Function CtrlDate(X As String) As Boolean

Dim D As Date

CtrlDate = True

If Not IsDate(X) Then
  CtrlDate = False
  Exit Function
End If

D = CDate(X)
If Year(D) < 2009 Or Year(D) > 2012 Then
  CtrlDate = False
End If

End Function

meme si le code initial fonctionnait correctement.

A+