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

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

[Jean-Pierre49]

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 :

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

[Jean-Pierre49]

Petite rectif:

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

[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

[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