Discussion :

[jijie]

Bonjour à tous,

Voila je voudrais en controler la date

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

Tu peux faire ça avec Like dans Textbox1_exit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jijie]

Merci Ouskel'n'or,

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

[Bigalo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+

[jfontaine]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

textbox1.text=DateAdd("d", 1, cdate(Textbox1.text))

[patbou]

bonsoir,

pour les formats des dates

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