Date entre 2009 et 2012

roro69

XLDnaute Impliqué

• 1 Novembre 2011

• #2

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

 

Vote positif 0 Vote négatif

D

dra72

XLDnaute Occasionnel

• 1 Novembre 2011

• #3

Re : Date entre 2009 et 2012

Bonjour,

Un petit aperçu:

Regarde la pièce jointe Date 2009 2012.xls

Bonne journée.

 

Vote positif 0 Vote négatif

D

dra72

XLDnaute Occasionnel

• 1 Novembre 2011

• #4

Re : Date entre 2009 et 2012

Rebonjour,

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

Code:

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+

 

Vote positif 0 Vote négatif