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.