Discussion :

[Nico451]

Bonjour,

J'ai un souci avec la fonction de vérification car si je met 45/14/19 avec le format dd/mm/yy, le format de la date passe sans message d'erreur

Voici mon code

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 TextBox5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 
    If KeyCode = 13 Then
 
        If IsDate(TextBox5.Value) And TextBox5.Value Like "##/##/##" Then
            TextBox18.Enabled = True
            TextBox18.BackColor = RGB(255, 255, 255)
        Else
            MsgBox "Entrer une date valide"
            TextBox5.Value = ""
            Me.TextBox5.SetFocus
       End If
    End If
End Sub

Petite Question bonus : pourquoi je ne reviens pas à mon TextBox5 avec le SetFocus?

Seconde question bonus : y as-t-il possibilité d'afficher un calendrier lors de la saisie de la date quand elle n'est pas valide?

Merci d'avance.

[unparia]

https://www.developpez.net/forums/d1.../#post10694828

[Nico451]

J'ai fait une grosse bêtise. Comment je peux faire pour y remédier?

Mais ce matin j'ai poser une question dans un post qui été résolu et ce soir je ne le trouve plus c'est pour ça que j'ai crée un autre post.

[Menhir]

si je met 45/14/19 avec le format dd/mm/yy, le format de la date passe sans message d'erreur

C'est un peu logique puisque, à ma connaissance, aucun mois n'a de jour 45 et aucune année n'a de mois 14.

[patricktoulon]

bonjour
si tu veux garder le focus sur le textbox5 en erreur de date msgbox ou pas il te faut annuler le keycode(13)

un petit exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub TextBox5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        With TextBox5
            If Not IsDate(.Value) And .Value Like "##/##/##" Then
                .Value = "": KeyCode = 0
                MsgBox "Entrer une date valide"
            End If
        End With
    End If
End Sub

Attention tout de meme au mois de "fevrier" le control "isdate" n'est pas suffisant
exemple si je tape "29/02/19" je passe au textbox suivant alors que la date n'est pas valide
en effet l'erreur ne sera pas relevée avec une date format "dd/mm/yy"

je te suggere donc d'approfondir ton test de validité avec dateserial et les elements du split de la chaine du textbox5 en comparant le day,month,year du resultat avec la chaine réelle je sais c'est con car c'est juste pour fevrier mais c'est comme ca si tu veux avoir un control de validité sans faille

[Patrice740]

Bonjour,

Essaies :

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
Private Sub TextBox5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim b As Boolean
    If KeyCode = 13 Then
        b = IsDate(TextBox5.Value)
        If b Then b = Format(CDate(TextBox5.Value), "dd/mm/yy") = TextBox5.Value
        If b Then
            TextBox18.Enabled = True
            TextBox18.BackColor = RGB(255, 255, 255)
        Else
            MsgBox "Entrer une date valide"
            TextBox5.Value = "": KeyCode = 0
            Me.TextBox5.SetFocus
       End If
    End If
End Sub

[patricktoulon]

Bonjour patrick 740
le backcolor sur t18 c'est pas la peine car c'est impossible because focus sur t5 tant que le keyup n'est pas effectif sur celui
bien vu le test format =.value
testé sur 2007!!!

[Nico451]

Pas encore testé mais j'ai pris.

Merci du coup de main.

[patricktoulon]

bonjour

une petite variante avec selection du texte dans textbox5 si c'est pas conforme
pratique en cas de non conformité pour retaper directement sans selectionner et supprimer

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 TextBox5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim b As Boolean
    If KeyCode = 13 Then
        With TextBox5
            If IsDate(.Value) Then b = Format(CDate(.Value), "dd/mm/yy") = CStr(.Value)
            If b Then
                TextBox18.Enabled = b
                TextBox18.BackColor = IIf(b = True, RGB(255, 255, 255), .BackColor)
            Else
                KeyCode = 0: .SelStart = 0: .SelLength = 10
            End If
        End With
    End If
End Sub

une autre sans les if

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 TextBox5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim b As Boolean
    If KeyCode = 13 Then
        With TextBox5
            If IsDate(.Value) Then b = Format(CDate(.Value), "dd/mm/yy") = CStr(.Value)
            '
            With TextBox18: .Enabled = b: .BackColor = IIf(Not b, .BackColor, RGB(255, 255, 255)): End With
            '
            '
            If Not b Then KeyCode = 0: .SelStart = 0: .SelLength = 10
            '
        End With
    End If
End Sub

[omrsmiloud]

bonjour a tous

je reviens sur la Seconde question bonus de Nico451 , une petite calendrier que j'ai réalisé , et qui fonctionne parfaitement si ça peut vous être utile , et éviter ce genre de problèmes avec les dates

j'ai tous appris de ce merveilleux Forum que je me sens obligé de donner de mois aussi

Un grand merci a patricktoulon

bonne journée

[patricktoulon]

re
bonjour ormsmiloud
il est pas tres bien au point ton calendrier question manipulation les fleches marchent pas tres bien l'affichage manque du positionnement des jour

j'ai pas regardé ton code
j'en ai un a te proposer qui est aboutie et possede plusieur niveau de sortie