Bonjour,

Lorsqu'on fait un inputbox avec un bouton OK et Cancel
Y-a-t-il une difference si l'utilisateur n'entre rien et fait OK et s'il fait Cancel

Car j'aimerais programmer que lorsque l'utilisateur pese sur cancel, il sort du programme. En ce moment, si l'utilsateur pese sur cancel, le programme embarque dans ma validation du champs

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim date1 As String
Dim date2 As String
Dim X As Integer
 
X = 5
Dim valid As String
Dim counter As Integer
 
Do Until (X = 1)
  counter = 1
  date1 = InputBox("Indicate the begin date(YYYYMMDD).", "begin date", "")
 
  If (Len(date1) <> 8) Then
    X = 0
    Message = MsgBox(" Error! the date entered is incorrect" & Chr(10) & Chr(10) & "Please use the Format YYYYMMDD ", 16, Error)
  Else
 
    Do Until (counter = Len(date1) + 1 Or X = 0)
      valid = Mid(date1, counter, 1)
      If (valid = "0" Or valid = "1" Or valid = "2" Or valid = "3" Or valid = "4" Or valid = "5" Or valid = "6" Or valid = "7" Or valid = "8" Or valid = "9") Then
        counter = counter + 1
        X = 1
      Else
        X = 0
        Message = MsgBox(" Error! Invalid characters entered numbers only " & Chr(10) & "Please use the Format YYYYMMDD  ", 16, Error)                             
 
      End If
    Loop
 
  End If
 
Loop