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.