Discussion :

[adelsunwind]

Bonjour,
j ai un petit probleme avec un Inputbox.
En effet la valeur saisie est stockée dans une variable. Ensuite je fais des tests sur cette varaible notamment si elle est Null.
Le probleme est que si je fais annuler dans l inputbox alors automatiquement NULL est stockée dans ma variable et je fais quand même mon test alors que je voudrais rien faire quand je fais annuler.
Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
 
Do
 
tampon = InputBox("Entrez une nouvelle date de référence", "NOUVELLES REFERENCES")
If IsDate(tampon) = False Then
MsgBox (" Le format de date n'est pas correct")
End If
 
Loop Until IsDate(tampon) = True

[Gabout]

Bonjour,

Essaie

Code :

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

1
2
3
4
5
Dim strVariable As String
Do
    strVariable = InputBox("Entrez au format jj/mm/aaaa", "Salut Utilisateur")
    If strVariable = vbNullString Then Exit Sub
Loop Until IsDate(strVariable)

A+

[LedZeppII]

Bonjour,

une autre proposition donnant le choix à l'utilisateur de réessayer ou d'annuler

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim tampon As String, Reponse As Integer
Do
    tampon = InputBox("Entrez une nouvelle date de référence", "NOUVELLES REFERENCES")
    Reponse = 0
    If IsDate(tampon) = False Then
       Reponse = MsgBox(" Le format de date n'est pas correct", vbRetryCancel)
    End If
Loop Until Reponse = 0 Or Reponse = vbCancel
 
If Reponse <> vbCancel Then
   MsgBox CDate(tampon)
Else
   MsgBox "Opération annulée par l'utilisateur"
End If

A+