Discussion :

[arnold95]

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

[NEC14]

Bonjour,

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

Code :

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

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

[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

[Jean-Pierre49]

Bonjour,

Une autre solution, lors de la validation:

Code :

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

1
2
3
4
5
If Not IsDate (Me.texbox) then
.........
.........
.........
End if

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

[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

[NEC14]

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 :

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

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

[jpenja]

tu peux essayer ceci à adapter à ton code

Code :

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

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

[Jean-Pierre49]

Partant du code de SilkyRoad:

Code :

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

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