Autres Interrompu le code

chaelie2015 à dit:

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

Cliquez pour agrandir...

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