[E-03] Problème Exit Sub

Version imprimable

30/10/2008, 19h53
allergique

[E-03] Problème Exit Sub

Bonjour,

J'ai une macro qui fait appel à une 2ème macro.

Dans cette 2ème macro dans certains cas je souhaite arrêter complètement l'exécution du programme.

J'ai utilisé "exit sub", mais le problème est que la macro 2 s'arrête et continue sur la macro de base.

Savez-vous si il est possible d'arrêter totalement les macros imbriquées entre elles?

Merci d'avance
30/10/2008, 20h02
ucfoutu

Bonsoir,

Utilise une variable booléenne (False/true) soit globale soit envoyée en paramètres

Dans ta macro2 : passe cette variable à True juste avant ton exit sub
Dans ta macro1 : juste après l'appel de la macro2 : ===>>> exit sub si ta variable = true (et tu la repasses à false juste avant l'exit sub)
30/10/2008, 20h28
allergique

Citation:

Envoyé par ucfoutu

Bonsoir,

Utilise une variable booléenne (False/true) soit globale soit envoyée en paramètres

Merci pour ta réponse ucfoutu...

J'ai bien saisi ton principe. Par contre, une variable globale ou envoyée en paramètre, c'est quoi? Est-ce que ça signifie que je dois la déclarer en public?

En public si partagé entre deux (ou plus) modules
En privé si dans le même module, par exemple ainso (exemple) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private couic As Boolean
 
Private Sub Command1_Click()
  titi
End Sub
Private Sub titi()
 couic = False
 a = InputBox("entrez ce que vous voulez")
 MsgBox "vous avez rentré " & a & " on continue"
 toto
 If couic Then
   Exit Sub
 Else
   MsgBox "si vous me voyez, c'est que vous avez bien saisi un chiffre chez toto"
 End If
End Sub
Private Sub toto()
  a = InputBox("entrez un chiffre")
  If Not IsNumeric(a) Then
    couic = True
    Exit Sub
  Else
    MsgBox "vous avez rentré un chiffre. Alors on continue et vous me voyez"
  End If
End Sub

autre exemple, cette fois-ci sans variable globale, mais en passant la variable en paramètre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Command1_Click()
  titi
End Sub
Private Sub titi()
 Dim couic As Boolean
 couic = False
 a = InputBox("entrez ce que vous voulez")
 MsgBox "vous avez rentré " & a & " on continue"
 toto couic
 If couic Then
   Exit Sub
 Else
   MsgBox "si vous me voyez, c'est que vous avez bien saisi un chiffre chez toto"
 End If
End Sub
Private Sub toto(couic As Boolean)
  a = InputBox("entrez un chiffre")
  If Not IsNumeric(a) Then
    couic = True
    Exit Sub
  Else
    MsgBox "vous avez rentré un chiffre. Alors on continue et vous me voyez"
  End If
End Sub

et on pourraut en inventer d'autres, toujours avec le même principe....
Ce qui compte, pour toi, c'est d'adapter ce principe simple à ton cas (que je ne connais pas...)

30/10/2008, 21h51
allergique

C'est parfait.

Je ne connaissais pas le principe de variable en paramètre.

Merci beaucoup pour l'explication

Bonne soirée