Message de MIPPS date 12/07/2007 13:09 :
Bonjour,
Voici tout d'abord le code pour illustrer ma question :
Sub BoutonTest
Dim ValeurLu1 as string
Dim ValeurLu1Dbl as double
ValeurLu1 = inputbox("V1","V1")
While ValeurLu1 <> ""
On Error goto ErreurLecture
ValeurLu1Dbl = CDbl(ValeurLu1)
On Error Goto 0
Goto suite
ErreurLecture:
msgbox("Erreur")
On Error Goto 0
suite:
ValeurLu1 = inputbox("V1","V1")
Wend
End sub
Voici comment provoquer l'erreur :
- lancer le programme
- repondre 123 -> pas d'erreur on peut convertir en double
- repondre a -> erreur on ne peut pas convertir en double :
la gestion des erreurs prend la main, on a le msgbox
- repondre 456 -> pas d'erreur on peut convertir en double
- repondre b -> erreur on ne peut pas convertir en double :
mais la gestion des erreurs NE PREND PAS la main et
on a un message d'erreur sur le type de donnée.
Bonjour,
Livre Programmation OpenOffice.org 2, chapitre 9, page 168 :
L'instruction Resume est indispensable
Pour pouvoir continuer après une erreur il faut désactiver l'erreur en
cours; on le fait avec Resume. Voici le traitement d'erreur corrigé:
ErreurLecture:
msgbox("Erreur")
Resume suite0
suite0:
On Error Goto 0
suite:
______
Bernard
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
