Arret de procedure - Excel VBA

nagattaque Messages postés 230 Date d'inscription jeudi 29 mai 2003 Statut Membre Dernière intervention 5 juin 2007 - 28 juin 2004 à 14:43
nagattaque Messages postés 230 Date d'inscription jeudi 29 mai 2003 Statut Membre Dernière intervention 5 juin 2007 - 29 juin 2004 à 14:32
Bonjour,

Voilà mon probleme, je cose en VBA sous excel. Je lance des procédures, en faisant appel a leur nom :

sub start()
faire_tache1
faire_tache2
end sub

Dans faire_tache1, j'ai une clause "exit sub" qui me permet d'arreter le code, mais il me lance faire_tache2. Je voudrai en fait que si mon exit sub est executé, cela m'arrette le code pour toutes les procédures. Comprendesse ???

merki d'avance!

:-p :-p :-p :-p :-p :-p :-p :-p
Nag
ICQ# : 132028600
msn = giraudnba@msn.com
:-p :-p :-p :-p :-p :-p :-p :-p

2 réponses

cs_Geff Messages postés 192 Date d'inscription vendredi 2 mars 2001 Statut Membre Dernière intervention 10 janvier 2006
28 juin 2004 à 15:53
YuP

La solution que je te popose se base sur des fonctions, voila comment tu peux procéder ::

Sub Start()

Dim Etat as boolean

Etat = Faire_tache1()
Si Etat Exit Sub
Faire_tache2

End Sub

Function Faire_Tache1() as Boolean
Dim Retour as Boolean

Retour=False
if int(rnd*10)>5 then Retour=True

Faire_Tache1=Retour

End Function

Voila tout :)
Have a Good Code

Geff >:)
0
nagattaque Messages postés 230 Date d'inscription jeudi 29 mai 2003 Statut Membre Dernière intervention 5 juin 2007
29 juin 2004 à 14:32
merki pour ton aide....

Ca marche c'est nikel

:-p :-p :-p :-p :-p :-p :-p :-p
Nag
ICQ# : 132028600
msn = giraudnba@msn.com
:-p :-p :-p :-p :-p :-p :-p :-p
0