Un goto dans une autre sub [Résolu]
drnicholas001
- 19 mai 2005 à 08:58
- Messages postés
- 37
- Date d'inscription
- vendredi 10 septembre 2004
- Dernière intervention
- 21 avril 2007
- Messages postés
- 4066
- Date d'inscription
- mardi 13 mai 2003
- Dernière intervention
- 23 décembre 2008
- Visual basic goto
- Goto sub - Meilleures réponses
- Exit sub ! ! ! ou goto - Forum - Delphi / Pascal
- [mirc scripting] les boucles avec /while et /goto - Conseils pratiques - IRC
- Startup object :sub main vs maforme - Conseils pratiques - Visual Basic / VB.NET
- Fake sub seven - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Petites précisions sur le passage de paramètres à une fonction, sub ou propriété - Codes sources - Visual Basic / VB.NET (Tutoriels)
2 réponses
Meilleure réponse
- Messages postés
- 132
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 11 mai 2010
Bonjour,
Je vous propose d'utiliser un flag qui définira s'il faut ou non se dé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éveloppement, salutations...
(choisissez ce qui vous convient) dp
Je vous propose d'utiliser un flag qui définira s'il faut ou non se dé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éveloppement, salutations...
(choisissez ce qui vous convient) dp
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 86 internautes ce mois-ci
- Messages postés
- 4066
- Date d'inscription
- mardi 13 mai 2003
- Dernière intervention
- 23 décembre 2008
Pas bête ...
ou plus simplement découper Macro2 en deux Sub.
Appeler les deux Sub dans Macro2, et n'en appeler qu'une seule dans Macro.
Niveau propreté du code, çà serait quand même mieux.
Sub Macro1()
proc2
End Sub
Sub Macro2()
proc1
End Sub
Sub proc1()
' Avant, tu avais çà :
' If condition Then Goto Etiquette
' Maintenant, tu as ceci :
If condition Then proc2
End Sub
Sub proc2()
' ...
End Sub
Si tu peux éviter les GoTo dans tes procédures, c'est mieux. Il est
préférable de garder ce genre d'instructions pour les
redirections en cas d'erreurs, parce que
pour çà, il n'y a pas d'autre méthode.
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
ou plus simplement découper Macro2 en deux Sub.
Appeler les deux Sub dans Macro2, et n'en appeler qu'une seule dans Macro.
Niveau propreté du code, çà serait quand même mieux.
Sub Macro1()
proc2
End Sub
Sub Macro2()
proc1
End Sub
Sub proc1()
' Avant, tu avais çà :
' If condition Then Goto Etiquette
' Maintenant, tu as ceci :
If condition Then proc2
End Sub
Sub proc2()
' ...
End Sub
Si tu peux éviter les GoTo dans tes procédures, c'est mieux. Il est
préférable de garder ce genre d'instructions pour les
redirections en cas d'erreurs, parce que
pour çà, il n'y a pas d'autre méthode.
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.