Instruciotn On error

Question

Bonjour,

Voila mon probl&#232;me:

J'utilise l'instruction On error goto pour g&#233;rer une erreur dans une
fonction que l'on appelera fonction1. Cette fonction fait une boucle et
appel une sous-fonction &#224; chque it&#233;ration. Si il ya une erreur, je g&#232;re
le cas ou un parma&#232;tre n'est pas correct et j'appel la m&#234;me fonction ac
un autre param&#232;tre Voila le code (en gros)



public sub fonction1()

        on error goto xxx



for i=1 to 100

    fonction2(a,b)

next

exitsub

xxx:

    fonction2(a,c)

end sub



sub fonction2()

on error goto 0 'Je pensais que ca permettrais

......

end sub

Gobillot · Answer

Public Sub fonction1()

    for i=1 to 100

         If fonction2(a,b)  Then fonction2 a,c

         Next

End Sub

 

Private  Function fonction2(a As Integer, b As Integer) As Boolean

    on error goto xxx

   ......

   Exit Sub

xxx:

   fonction2 = True

End Sub 


Daniel

ricomiracle · Answer

Oui ca aurait put... Mais en fait l'erreur se produit dans "fonction1"

pour etre exact, b est un &#233;lement d' une collection. donc l'appel de la fonction2 se fait comme ca:
                
                Public



Sub fonction1()

     for i=1 to 100

          If fonction2(a,b("indexitem"))  Then fonction2 a,c

          Next

 End Sub



Mais il se peut que "indexitem" ne sot pas dans la collection d'o&#249;:



Sub fonction1()

on error goto xxx


     for i=1 to 100


         fonction2(a,b("indexitem")) 


          Next



xxx:

    if err.number = 5 then

         fonction2(a,b("DEFAUT"))

       resume next

    endif


 End Sub



Et la je ne vois pas commment faire autrement...?

Mais existe pourquoi on error goto 0 ds fonction2 ne r&#233;tablit pas le comportement normal??

Gobillot · Answer

ok je pensais que l'erreur venait de la fonction2



le On Error GoTo 0 ne peut avoir d"effet que dans la fonction ou se trouve le On Error



ce qui g&#234;ne c'est que la gestion d'erreur est d&#233;sactiv&#233;e pendant que l'erreur est en cours

&#231;a veut dire que dans le xxx s'il y a une autre erreur qui se produit, &#231;a va aboutir &#224; un plantage.

Daniel

ricomiracle · Answer

Et alors penses tu que si je remplace mon code par:



 Sub fonction1()

 on error goto xxx

       for i=1 to 100

           fonction2(a,b("indexitem")) 

            Next

 

 xxx:

     if err.number = 5 then

    on error goto 0

          fonction2(a,b("DEFAUT"))

    on error goto xxx

        resume next

     endif

   End Sub



ca marcherait ca tu penses?

Gobillot · Answer

je crois que c'&#233;tait mieux avant.

si l'erreur vient de la collection faut peut &#234;tre mieux la cibler.







Private Sub fonction1()

    Dim z As Integer   '????

    

    For i = 1 To 100

         On Error GoTo xxx

          z = b("indexitem")

          On Error GoTo 0

          fonction2 a, z

          Next

    Exit Sub

    

xxx:

    If Err.Number = 5 Then

       z = b("DEFAUT")

       Resume Next

       End If

End Sub


Daniel

ricomiracle · Answer

Effectivement ca me prait bcp mieux comme ca

Merci

Instruciotn On error

6 réponses

Discussions similaires