On demande à un utilisateur de taper une date dans une boite de dialogue jusqu’à ce que la frappe n’est pas reconnue comme une date par le
système, il faut réafficher la boite de dialogue. On écrira alors :

Question

On demande à un utilisateur de taper une date dans une boite de dialogue jusqu’à ce que la frappe n’est pas reconnue comme une date par le
système, il faut réafficher la boite de dialogue. On écrira alors :

Accepted Answer

Sub systeme()

Do  Range("A1") = InputBox("Entrez la date
désirée") 
 Loop Until
IsDate(Range("A1"))

End Sub

Answer

Sub
systeme()

Do

Range("A1") = MsgBox("Entrez la date
désirée")

Loop
Until IsDate(Range("A1"))

End Sub

Answer

Sub
systeme()

Do Until IsDate(Range("A1"))

Range("A1") =
MsgBox("Entrez la date désirée")

Loop

End Sub

Answer

Sub systeme()  
 While 
Range("A1") = InputBox("Entrez la date désirée")  
 Wend  
 End Sub

Crowdly

On demande à un utilisateur de taper une date dans une boite de dialogue jusqu’...

Want instant access to all verified answers on moodle.unistra.fr?