contrôle de format date

Version imprimable

Bonjour à tous,

Voila je voudrais en controler la date

en 1 faire les barres d'espacement automatiquement (ça marche!!)
Code:

1 2 3 4 5 6 7 8 9 Private Sub TextBox2_Change() TextBox2.MaxLength = 10 Valeur = Len(TextBox2) If Valeur = 2 Or Valeur = 5 Then TextBox2 = TextBox2 & "/" If Len(TextBox2) = 10 And Not IsDate(TextBox2) Then TextBox2 = ""
en 2 :contrôler si je suis bien en format date, par contre ça ne marche pas!!
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Len(TextBox2.Value) = Format(mydate, "dd/mm/yyyy") Then GoTo fin1 If Len(TextBox2.Value) <> Format(mydate, "dd/mm/yyyy") Then MsgBox "Entrer la date dans ce format jj/mm/aa" End If fin1: End Sub
de plus je voudrais que lorsque je ne suis pas dans le bon format, il faudrait retourner sur le textbox2

en 3: comment faire pour contrôler une date se trouvant par exemple entre le 01/10/07 et 30/09/08

merci de votre renseignement

Tu peux faire ça avec Like dans Textbox1_exit

Code:

1
2
3
4
5
6
7
8
9
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim EstDate as boolean
        EstDate = TextBox1.text Like "##/##/####"
        If not EstDate then
             Msgbox "respecter le format date jj/mm/aaaa"
             TextBox1.text = ""
             cancel = true
        endif
End sub

Edit
J'aurais une suggestion à te faire si la date est celle "d'aujourd'hui"...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub TextBox1_Enter()
    TextBox1 = Format(Now(), "dd/mm/yyyy")
End Sub
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim EstDate As Boolean
        EstDate = TextBox1.Text Like "##/##/####"
        If TextBox1 = "" Then Exit Sub
        If Not EstDate Then
            MsgBox "Saisir la date au format jj/mm/aaaa"
            TextBox1 = ""
            Cancel = True
        End If
End Sub

09/02/2008, 16h05
jijie

Merci Ouskel'n'or,
:king:
OK ça marche trés bien mais peut-on réduire ou augmenter la date par + ou -

et comment faire pour ne pas dépasser une date et lui donner un minimum

Merci

Bonsoir,

Pourquoi n’utilises-tu pas simplement IsDate, qui t’offre bien plus de souplesse :

Par exemple, si on saisit une date au format j/m, Excel complète automatiquement avec l’année en cours. Il n’est donc utile de saisir l’année que s’il ne s’agit pas celle en cours.

Il est parfaitement licite de saisir 9/2 comme date pour le 9 février 2008 si les préférences régionales sont sur France.
Code:

1 2 3 4 5 6 7 8 9 Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsDate(TextBox2) Then Msgbox "La date doit être saisie au format j/m/aa" TextBox2 = "" Cancel = True Else MsgBox CDate(TextBox2) End If End Sub
Tu peux le vérifier ainsi : entre 9/2 dans le TextBox2, puis appuie sur tabulation

09/02/2008, 20h02
ouskel'n'or
Dans une date, l'unité est le jour. Les décimales sont les heures, minutes et secondes.
Donc, si tu ajoutes 1 à une date, tu as le lendemain d'aujourd'hui ;)
Par contre, si tu prends ta date dans le textbox, tu dois préciser
Code:

1 2 TextBox1 = Format(Now(), "dd/mm/yyyy") ' => 09/02/2008 TextBox1 = CDate(TextBox1) + 1 ' => 10/02/2008
A+
10/02/2008, 10h54
jfontaine

pour ajouter un jour a une date tu peux aussi utiliser dateadd

Code:

textbox1.text=DateAdd("d", 1, cdate(Textbox1.text))
10/02/2008, 21h27
patbou

bonsoir,

pour les formats des dates

http://www.developpez.net/forums/sho...d.php?t=435532