Aide pour GOTO

[sechanbask]

J'ai dû mal à comprendre le code suivant:

Sub OnGosubGotoDemo()
Dim Number, MyString
   Number = 2    ' Initialise la variable.
   ' Branch to Sub2.
   On Number GoSub Sub1, Sub2   ' L'exécution
                                           ' reprend ici après
       ' On...GoSub.
   On Number GoTo Line1, Line2    ' Se branche sur
                                           ' Line2.
   ' L'exécution ne reprend pas ici après On...GoTo.
   Exit Sub
Sub1:
   MsgBox "Dans Sub1": Return
Sub2:
   MsgBox "Dans Sub2": Return
Line1:
   MsgBox "Dans Line1"
Line2:
   MsgBox "Dans Line2"
End Sub

 

C'est le code de l'aide VBA. Je ne vois pas pourquoi, le programme ne va jamais dans le sub1 ou line1. A quoi sert le sub1, sub2 dans

On Number GoSub Sub1, Sub2 

[sechanbask]

c'est pas grave j'ai contourné le problème avec le code que j'enverrai demain si j'y pense...

[sechanbask]

En fait je souhaitais faire un goto alors que le plus simple était un call voir:

http://www.cadxp.com/sujetXForum-15705.htm