Discussion :

[allergique]

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

[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)

[allergique]

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?

[ucfoutu]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...)

[allergique]

C'est parfait.

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

Merci beaucoup pour l'explication

Bonne soirée