[prog] Gestion d'erreur : une erreur mais pas deux

Thu, 12 Jul 2007 04:09:54 -0700 

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.

Alors ai-je loupé quelque chose parce que je ne vois pas ce
qu'il y a de spécial dans mon code.

Je suis en OOo 2.2.1, WXPH, JRE 6 upd 1.

Merci d'avance.
Marc.

Répondre à