Bonjour à tous,
J'utilise une InputBox dans une macro afin de saisir une date.
Si une date est renseignée,je poursuis ma macro, si elle n'est pas renseignée mais que le bouton Ok est cliqué j'envoi un message via une MsgBox.
Enfin si on clique le bouton Cancel on sort de la macro.
Voici le code réalisé :

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
Sub Data_Date() 
 
Dim x As Variant
 
    x = InputBox("Enter Data Date" & Chr(10) & " " & Chr(10) & "Use format dd/mm/yy", "NEW_DATA_DATE", "", vbOKCancel)
        If x <> "" Then
        Baseline_Date
        Else
            If vbOK And x = "" Then
            MsgBox "Enter a valid date", , "WARNING"
            ElseIf vbCancel And x = 0 Then
            Exit Sub
            End If
        End If
End Sub
Mon problème vient du fait que lorsque je clique sur Cancel, ma msgBox apparaît tout de même, ce qui est normal car x=0 (espion) mais ma condition
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ElseIf vbCancel And x = 0 Then
ne semble pas être reconnue.

Comment puis résoudre ce problème ?
Merci pour vos conseils
Eric