Autres Interrompu le code

[chaelie2015]

Bonjour Forum
je souhaite ajouter a cette instruction ce qui suit ;
dans USF : si le je saisi une valeur dans TextBox ( txtDépart) qui n'est pas une date ne continu pas le reste du code et rester dans le textbox jusqu'à la modifier.

if Not IsDate(txtDépart) Then 'pour vérifier que c'est bien une date qui a été saisie
                MsgBox "Format incorrect"
                txtDépart = ""
                Exit Sub
            Else
                MsgBox "Format correct"
                Range("D" & L).Value = Format(txtDépart, "dddd dd/mmmm/yyyy")
            End If

 

[Jacky67]

Bonjour Forum
je souhaite ajouter a cette instruction ce qui suit ;
dans USF : si le je saisi une valeur dans TextBox ( txtDépart) qui n'est pas une date ne continu pas le reste du code et rester dans le textbox jusqu'à la modifier.

if Not IsDate(txtDépart) Then 'pour vérifier que c'est bien une date qui a été saisie
                MsgBox "Format incorrect"
                txtDépart = ""
                Exit Sub
            Else
                MsgBox "Format correct"
                Range("D" & L).Value = Format(txtDépart, "dddd dd/mmmm/yyyy")
            End If

Bonjour,
Quel événement est utilisé ???
Dans cet exemple "l" n'est pas configurer

Private Sub txtDépart_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Not IsDate(txtDépart) Then    'pour vérifier que c'est bien une date qui a été saisie
        MsgBox "Format incorrect"
        txtDépart = ""
        Cancel = True
    Else
        MsgBox "Format correct"
        Range("D" & l).Value = Format(txtDépart, "dddd dd/mmmm/yyyy")
    End If
End Sub

Il serait sage d'utiliser un calendrier. De nombreux exemples sont sur ce forum

 

[chaelie2015]

Bonjour jackt
merci pour la remarque et la réponse.
a+