Macros et poupées russes : exécuter une macro une seule fois

Bonjour,

J'ai des macros structurées comme ceci :

Code:

---

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 ?

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

Merci pour la piste.
Comme ceci cela semble fonctionner :

Code:

---

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 ?

à 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:

---

Public Gomacro as Boolean

---

et aurais programmé en fonction

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

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

Code:

---

1 2 3

Public Gomacro As Boolean Sub machin() ...

---

et en fonction de tes besoins

Code:

---

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

---

Bonjour Dominique,

Citation:

---

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.

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

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:

---

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.

Bonjour,

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

Code:

---

If GoMacro Then call macro4

---

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

Code:

---

If GoMacro Then macro4

---

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:

---

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 :-) !!

Bonjour,

Citation:

---

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:

---

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

---

en complément de Philippe, essayes

Code:

---

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

---

Ah ok, merci pour cette dernière indication !