un goto dans une autre subRésolu

Question

Salut, je voudrais savoir comment faire un goto dans une autre sub? C'est parce que j'ai un objet et apr&#232;s quelques lignes de code, je veux qu'il active un bouton mais pas faire tout le code qui est pr&#233;sent dans celui-ci, seulement une partie placer apr&#232;s un label. Merci

dp_favresa · Accepted Answer

Bonjour,



Je vous propose d'utiliser un flag qui d&#233;finira s'il faut ou non se d&#233;brancher

(voir petit exemple ci-dessous) :



    Public Dbr As Integer

  

Sub Macro1()

    Dbr = 1

    Macro2

End Sub

  

Sub Macro2()

    If Dbr = 1 Then

        GoTo Dbr1

    End If

    ActiveCell.Value = 1

Dbr1:

    ActiveCell.Value = 2

End Sub

  


Bon(nes) courage, d&#233;veloppement, salutations...
(choisissez ce qui vous convient)                   dp

econs · Answer

Pas b&#234;te ...

ou plus simplement d&#233;couper Macro2 en deux Sub.

Appeler les deux Sub dans Macro2, et n'en appeler qu'une seule dans Macro.

Niveau propret&#233; du code, &#231;&#224; serait quand m&#234;me mieux.





Sub Macro1()

    proc2

End Sub



Sub Macro2()

    proc1

End Sub  



Sub proc1()

'     Avant, tu avais &#231;&#224; :

'    If condition Then Goto Etiquette

'    Maintenant, tu as ceci :

    If condition Then proc2

End Sub



Sub proc2()

'    ...

End Sub





Si tu peux &#233;viter les GoTo dans tes proc&#233;dures, c'est mieux. Il est
pr&#233;f&#233;rable de garder    ce genre d'instructions pour les
redirections en cas d'erreurs, parce que
pour      &#231;&#224;, il n'y a pas d'autre m&#233;thode.


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

Un goto dans une autre sub

2 réponses