Discussion :

[gennydude99]

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

[ProgElecT]

bonsoir


source : MSDN Library

Si l'utilisateur clique sur OK ou appuie sur ENTRÉE , la fonction InputBox renvoie le texte contenu dans la zone de texte. Si l'utilisateur clique sur le bouton Annuler, la fonction renvoie une chaîne de longueur nulle ("").

Donc il faut suggerer dans votre cas, une date à l'utilisateur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim LaDate As String
LaDate = Format(Date, "YYYY/MM/DD")
LaDate = InputBox("Indicate the begin date(YYYY/MM/DD).", "begin date", LaDate)
If IsDate(LaDate) Then
 'bon mais pas forcement dans le format desiré
 Else
 If LaDate = "" Then
  'Bouton annuler
  Else
  'l'entrée n'est pas une date valide
 End If
End If

Salut