Discussion :

[JohnSn]

Bonjour,

J'ai des macros structurées comme ceci :

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
sub macro1()
....
call macro2
call macro 3
end sub
 
sub macro2()
...
call macro4
end sub
 
sub macro3()
...
call macro4
end sub
 
sub macro4()
...
end sub

Quand je lance la macro 1, la macro 4 est donc exécutée deux fois.
Mais les macros 2 et 3 doivent pouvoir être exécutée indépendamment et dans ce cas elles doivent bien exécuter la macro 4 (si je lance seulement la macro 2, la macro 4 doit bien être appelée à la fin de la macro 2, idem quand je lance la macro 3).

J'ai bien lu les aides sur les appels de macros, mais n'y ai malheureusement pas trouvé le meilleur moyen de gérer mon cas.
Pourriez-vous m'aiguiller vers la meilleure pratique possible pour gérer au mieux cette situation et ne pas appeler deux fois la macro 4 quand je lance la macro 1 s'il vous plait ?

[casefayere]

Bonjour,
pour le peu que tu montres, je dirais, ré-organises tes macros, sers-toi de variables en "Boolean",...

[JohnSn]

Merci pour la piste.
Comme ceci cela semble fonctionner :

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
sub macro1()
....
call macro2(false)
call macro 3
end sub
 
sub macro2(optional GoMacro as boolean)
...
If GoMacro <> False Then call macro4
end sub
 
sub macro3()
...
call macro4
end sub
 
sub macro4()
...
end sub

Est-ce bien comme ça qu'il faut procéder ?

[casefayere]

à ce stade, je dirais pourquoi pas, le "Optional" n'est peut-être pas forcément requis mais on ne voit pas tes macros alors....
mais l'idée des "Boolean" est bien celle-ci

EDIT : j'aurais mis la variable "Gomacro" en "Public" en haut d'un module (avant les Sub)

Code :

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

Public Gomacro as Boolean

et aurais programmé en fonction

[JohnSn]

Je ne suis pas sûr de comprendre.
C'est la macro 4 que tu aurais mis en fonction ?

[casefayere]

dans un module standard, avant les procédures si il y en a

Code :

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

1
2
3
Public Gomacro As Boolean
Sub machin()
...

et en fonction de tes besoins

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
sub macro1()
Gomacro = False
....
 
call macro2()
If Gomacro = True'à toi de voir quand remettre à True
call macro 3
end sub
 
sub macro2()
...
If GoMacro <> False Then call macro4
end sub
 
sub macro3()

[Philippe Tulliez]

Bonjour Dominique,

EDIT : j'aurais mis la variable "Gomacro" en "Public" en haut d'un module (avant les Sub)

Pour lancer ou pas une procédure, j'opterais plutôt pour un argument boolean et de préférence optionnel comme tu l'as proposé au lieu d'une variable publique.

[casefayere]

Bonjour Philippe (un petit coucou),

Ok, j'en conviens mais maintenant il faudrait en savoir un peu plus à moins que le demandeur n'ai trouvé la solution entre temps

[JohnSn]

Bonjour,

Je vous remercie pour vos réponses.

En fait le code suivant me convient bien et fait son office (la macro 4 n'est bien appelée qu'une seule fois, je l'ai vérifié en ajoutant un bête msgbox dans la macro4, qui n'apparait maintenant qu'une fois quand je lance la macro 1) :

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
sub macro1()
....
call macro2(false)
call macro 3
end sub
 
sub macro2(optional GoMacro as boolean)
...
If GoMacro <> False Then call macro4
end sub
 
sub macro3()
...
call macro4
end sub
 
sub macro4()
...
end sub

Mais vous semblez suggérer qu'il peut avoir des inconvénients selon l'utilisation ?
Dans mon cas, la macro 1 sert à appeler les autres macros.
Les macros 2, 3 et 4 gèrent des affichages de zones dans ma feuille.
Toutes ces macros ne sont appelées que très ponctuellement.

[Philippe Tulliez]

Bonjour,

Pour tester la valeur Booléenne True, il suffit d'écrire

Code :

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

If GoMacro Then call macro4

et le Call n'est pas obligatoire lorsque l'on appelle une procédure Sub

Code :

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

If GoMacro Then macro4

[JohnSn]

Je n’étais pas sûr qu'une variable boolean était par défaut à la valeur True. C'est plus simple avec ceci effectivement :

Code :

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

If GoMacro Then call macro4

En revanche je préfère personnellement conserver le "Call Macro" car je trouve que cela permet de bien voir qu'on appelle une macro dans le code.

Cela fonctionne bien ainsi. Merci à vous tous :-) !!

[Philippe Tulliez]

Bonjour,

Je n’étais pas sûr qu'une variable boolean était par défaut à la valeur True. C'est plus simple avec ceci effectivement :

Non, une variable booléenne est égal à False dès sa déclaration comme une variable numérique vaut 0 et une variable de type String est égal à ""

Dans l'exemple ci-dessous, si l'on ne passe pas la valeur True à la procédure nommée Macro2, l'argument GoMacro sera égal à False

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Main()
 Macro2 True
End Sub
 
Sub Macro2(Optional GoMacro As Boolean)
 If GoMacro Then Macro4
End Sub
 
Sub Macro4()
 MsgBox "Coucou"
End Sub

[casefayere]

en complément de Philippe, essayes

Code :

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

1
2
3
4
5
6
7
8
9
Sub essai()
Dim Gomacro As Boolean
If Gomacro Then MsgBox "je suis reconnu donc j'existe"
If Not Gomacro Then MsgBox "Snif, personne ne m'aime"
Gomacro = True
If Gomacro Then MsgBox "je suis reconnu donc j'existe"
If Not Gomacro Then MsgBox "Snif, personne ne m'aime"
 
End Sub

[JohnSn]

Ah ok, merci pour cette dernière indication !