Saisie d'une date dans une textbox

Version imprimable

22/11/2007, 14h51
arnold95

Saisie d'une date dans une textbox

Rebonjour à tous,
J'ai fait une texbox ou l'utilsateur doit saisir une date...ce que je souhaiterai c'est que par exemple si l'utilsateur veuille mettre 22/11/2007 que ca mette 22 (et ne peux mettre un chiffre > 31) puis / et l'utilisateur tape le mois ( et ne peux pas mettre une chiffre > à 12) puis / et l'année et ne peux mettre que 4 chiffre. Merci Beaucoup

Bonjour,

J'ai ce bout de code, vois ce que tu peux en faire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub TxtDateFact_AfterUpdate()
' Variable de formatage de la date
Dim BDC_Date As String
    ' Vérification si la date existante est déjà correcte
    If IsDate(TxtDateFact.Text) Then
    ' La date saisie est correcte
    Else
        ' La date saisie n'est pas formatée
        If IsNumeric(TxtDateFact.Text) Then
            ' La date est au format jjmmaa
            If Len(TxtDateFact.Text) = 6 Then
                BDC_Date = Left(TxtDateFact, 2) & "/" & Mid(TxtDateFact, 3, 2) & "/20" & Right(TxtDateFact, 2)
            End If
            ' La date est au format jjmmaaaa
            If Len(TxtDateFact.Text) = 8 Then
                BDC_Date = Left(TxtDateFact, 2) & "/" & Mid(TxtDateFact, 3, 2) & "/" & Right(TxtDateFact, 4)
            End If
        End If
        ' Vérification que la date formatée est correcte
        If IsDate(BDC_Date) Then
            TxtDateFact.Text = BDC_Date
        Else
            ' Dans les cas ou la saisie n'est pas correcte
            MsgBox "La date est incorrecte : " & TxtDateFact.Text
            TxtDateFact.SetFocus
        End If
    End If
End Sub

22/11/2007, 15h49
arnold95

Je ne suis pas sur que çà réponde à la question...Mais je pense qu'il y a un moyen simple de le faire mais en tout cas merci beaucoup
22/11/2007, 15h58
Jean-Pierre49
Bonjour,

Une autre solution, lors de la validation:
Code:

1 2 3 4 5 If Not IsDate (Me.texbox) then ......... ......... ......... End if
22/11/2007, 16h20
arnold95

En fait ce que je souhaite c'est que lorsque l utilisateur entre la date çà se mette direct en 22/11/2007 et que l'utilisateur ne puisse pas mettre 200700000....
22/11/2007, 16h32
Jean-Pierre49

Il y à un tutoriel pour l'utilisation des contrôles dans les UserForm
De SilkyRoad ou il indique comment forcer à indiquer une date ds un texbox

Citation:

Envoyé par arnold95

En fait ce que je souhaite c'est que lorsque l utilisateur entre la date çà se mette direct en 22/11/2007 et que l'utilisateur ne puisse pas mettre 200700000....

Peut-être quelque chose comme ça

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub TextBox3_Change()
    Dim Exemple As String
    Dim ExDate As String
    Exemple = TextBox3.Value
    If ((Len(Exemple) > 5) And (Len(Exemple) < 10)) Then
        Application.EnableEvents = False
        ExDate = Mid(Exemple, 1, 2) & "-" & Mid(Exemple, 3, 2) & "-20" & Mid(Exemple, 5)
        TextBox3.Value = ExDate
        Application.EnableEvents = True
    End If
End Sub

tu peux essayer ceci à adapter à ton code

Code:

1
2
3
4
5
6
7
8
9
 
Private Sub TextBox1_AfterUpdate()
 
Dim dat, dat1 As String
dat = Me.TextBox1.Text
dat1 = Mid(dat, 1, 2) & "/" & Mid(dat, 3, 2) & "/" & Mid(dat, 5, 4)
Me.TextBox1.Text = dat1
 
End Sub

Remplace textbox1 par ta propre textbox

Partant du code de SilkyRoad:

Code:

1
2
3
4
5
6
7
8
9
Private Sub TextBox1_Change()
 
TextBox1.MaxLength = 10 
Valeur = Len(TextBox1)
 
If Valeur = 2 Or Valeur = 5 Then TextBox1 = TextBox1 & "/"
If Len(TextBox1) = 10 and Not IsDate(TextBox1) Then TextBox1 = ""
 
End sub

22/11/2007, 17h15
arnold95

Merci beaucoup pour toutes ces réponses, j'ai utilisé le code de jean pierre qui marche bien sauf que lorsqu'on efface... par exemple si on a mis 21/12/2008 et qu'on veuille finalement mettre 21/11/2008...

Bonjour,

Effectivement la petite procédure que j’ai envoyée, n’est pas le top.
Cela non plus, mais elle teste jour > 31 et mois > 12, plus la validité de la date et elle peut être modifiée si 12 doit devenir 11.
(J’ai mis des – à la place de / , je nomme des fichiers pdf)
Une première approche on doit pouvoir faire mieux.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub DateHabilitation_Change()
                            Dim Valeur                  As Byte
 
    Me.DateHabilitation.MaxLength = 10
    Valeur = Len(Me.DateHabilitation)
 
    If Valeur = 2 And Mid(Me.DateHabilitation, 1, 2) > 31 Then
        Me.DateHabilitation.MaxLength = 2 ' interdit d'aller plus loin
        MsgBox "Jour non valide"
        Exit Sub
    End If
 
    If Valeur = 5 And Mid(Me.DateHabilitation, 4) > 12 Then
        Me.DateHabilitation.MaxLength = 5 ' interdit d'aller plus loin
        MsgBox "Mois non valide"
        Exit Sub
    End If
    If Valeur = 2 Or Valeur = 5 Then Me.DateHabilitation = Me.DateHabilitation & "-"
 
    If Valeur = 10 And Not IsDate(Me.DateHabilitation) Then Me.DateHabilitation = ""
 
End Sub

Je vais essayer de continuer, la procédure m’intéresse
A plus tard

Petite rectif:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub DateHabilitation_Change()
                            Dim Valeur                  As Byte
 
    Me.DateHabilitation.MaxLength = 10
    Valeur = Len(Me.DateHabilitation)
 
    If (Valeur = 2 Or Valeur = 10) And Mid(Me.DateHabilitation, 1, 2) > 31 Then
        If Valeur = 2 Then Me.DateHabilitation.MaxLength = 2
        MsgBox "Jour non valide"
        Exit Sub
    End If
 
    If (Valeur = 5 Or Valeur = 10) And Mid(Me.DateHabilitation, 4, 2) > 12 Then
        If Valeur = 5 Then Me.DateHabilitation.MaxLength = 5
        MsgBox "Mois non valide"
        Exit Sub
    End If
 
    If Valeur = 2 Or Valeur = 5 Then Me.DateHabilitation = Me.DateHabilitation & "-"
    If Valeur = 10 And Not IsDate(Me.DateHabilitation) Then Me.DateHabilitation = ""
 
End Sub

23/11/2007, 08h45
ouskel'n'or

Je te conseille de lire attentivement l'ensemble de cette discussion, qui te montrera la perversité des utilisateurs pour mettre ton code en défaut, mais aussi les 36 solutions envisagées pour les feinter? Mais prends ton week-end ;)
Sinon, tu as aussi une proposition d'ucfoutu et de jfontaine, dans Contribuez.
Bonne chance

PS - Une autre solution que j'aime bien ici
23/11/2007, 12h51
arnold95

Désolé du retard de ma réponse, je viens de me connecter...Merci beaucup pour votre aide...le code marche bien. Merci et bonne journée