Autres Interrompu le code

chaelie2015

XLDnaute Accro
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.
VB:
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

XLDnaute Barbatruc
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.
VB:
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
VB:
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