Variable publique - Hors du contexte

Bonjour,

J'aime bien dans mes procédure faire appel à une autre procédure qui fait gagner du temps à la procédure principale :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Macro_Début()   Application.ScreenUpdating = False IntÉCalc = Application.Calculation Application.Calculation = xlCalculationManual Set FlAct = ActiveSheet   End Sub   Sub Macro_Lambda   Call Macro_Début   Code...   Call Macro_Fin   End Sub

---

Les variables IntÉCalc et FlAct sont publiques, de façon à ce que leur contenu soit réutilisé en fin de macro:

Code:

---

1 2 3 4 5 6

Sub Macro_Fin()   Application.Calculation = IntÉCalc FlAct.Activate   End Sub

---

Le hic, c'est que leur valeur est perdue dès la fin de la procédure Macro_Début. L'espion indique "Hors de contexte".

Dès fois ça le fait, dès fois ça ne le fait pas. Là, ça le fait, même après redémarrage...

Pourquoi?!

Bonjour,

Citation:

---

Envoyé par Dédé6621

Le hic, c'est que leur valeur est perdue dès la fin de la procédure Macro_Début. L'espion indique "Hors de contexte".

---

Ce n'est pas que la valeur est perdue et si tu lances une autre macro qui l'utilise tu verras qu'elle est toujours valorisée mais "Hors de contexte" signifie que ton code actuel n'est pas concerné.

Bonjour,
Je t'invites à écrire option explicit en début de chaque module.

Citation:

---

Envoyé par Dédé6621

Le hic, c'est que leur valeur est perdue dès la fin de la procédure Macro_Début. L'espion indique "Hors de contexte".

---

Salut,

Les paramètres, ca sert à quelque chose, utilises les.

Citation:

---

Envoyé par Dédé6621

Code:

---

1 2	Application.ScreenUpdating = False Application.Calculation = xlCalculationManual

---

---

Défait-toi de ces mauvaises pratiques immediatement, c'est de l'optimisation prématurée, ça ne t'apportera que des emmerdes.

Bonjour,

En quoi cela serait-il une mauvaise pratique?
C'est une manière classique d'éviter de perdre du temps à avoir Excel qui recalcule toutes les dépendances et rafraîchit l'affichage entre chaque modification faite par la procédure dans Excel. Sur des fichiers Excel lourds et/ou des traitements lourds, l'intérêt est important.
Par contre, il faut l'associer à une gestion d'erreur pour être certain de correctement reconfigurer l'affichage et le rafraîchissement des formules en fin de traitement, qu'il ait réussi ou échoué (surtout que ces réglages ne parlent généralement pas aux utilisateurs).

Personnellement je le gère dans la procédure en question directement (et je lance une msgbox avec un message de succès ou avec l'erreur rencontrée et complète généralement un log).
Mais si l'on veut passer par une sous-procédure, on peut utiliser une variable globale pour stocker la valeur de Application.Calculation ou sinon passer une variable de la procédure appelante dans un paramètre ByRef de la sous-procédure de démarrage (cela permet donc de modifier cette variable dans la sous-procédure puis de réutiliser celle-ci en paramètre ByVal dans la sous-procédure de fin). Utiliser une variable globale sur ce genre de sujet ne me choque pas; les deux méthodes me semblent valables.

@Promethee25:
C'est une mauvaise pratique d'employer ces instructions:
1) Avant d'avoir obtenu le comportement escompté.
2) Avant d'avoir terminé les développements.
3) Avant d'avoir mesuré les temps d'exécution.

Et je te redirige sur cet article:
Premature optimization is the root of all evil in software development

Et les variables globales ... moins on en a, mieux on se porte.

Citation:

---

Envoyé par anasecu

Ce n'est pas que la valeur est perdue et si tu lances une autre macro qui l'utilise tu verras qu'elle est toujours valorisée mais "Hors de contexte" signifie que ton code actuel n'est pas concerné.

---

Malheureusement, les variables globales (ou variables publiques) ne récupèrent pas leur valeur lorsque le code principal arrive à la sous-procédure Marco_Fin, où ces variables se trouvent bien.

Citation:

---

Envoyé par Thumb down

Je t'invites à écrire option explicit en début de chaque module.

---

J'aurais peut-être dû mieux le préciser, mais toutes les variables sont bien déclarées (cf. commentaire ci-dessous).

Citation:

---

Envoyé par deedolith

Et les variables globales ... moins on en a, mieux on se porte.

---

En quoi les variables globales gênent-elles? En ce qui me concerne, j'en ai toute une nomenclature avec description et ça m'évite de réinventer la roue à chaque fois.
Les deux variables utilisées sont ainsi déclarées et décrites dans un module à part:

Code:

---

1 2	Public FlAct As Worksheet 'feuille active en début de macro Public IntÉCalc As Integer 'état du mode de calcul d'Excel

---

Citation:

---

Envoyé par Promethee25

Mais si l'on veut passer par une sous-procédure, on peut utiliser une variable globale pour stocker la valeur de Application.Calculation ou sinon passer une variable de la procédure appelante dans un paramètre ByRef de la sous-procédure de démarrage (cela permet donc de modifier cette variable dans la sous-procédure puis de réutiliser celle-ci en paramètre ByVal dans la sous-procédure de fin).

---

Merci de la réponse. Ce sont bien des variables globales que j'utilise et ça m'étonne qu'elles perdent leur valeur d'une sous-procédure à une autre, vu leur nature.
J'ai testé la méthode avec une variable locale déclarée dans la procédure principale passée à la sous-procédure avec un paramètre ByRef, et ça marche. Par contre, ça me paraît moins pratique et j'aurais bien aimé utiliser une variable globale.

Est-ce que quelqu'un·e a une explication pourquoi ça ne marche pas avec des variables globales?

Bonjour,
C'est parce que ta variable public est soit déclaré dans emplacement non accessible à l'ensemble du projet ???? Par exemple dan thisworkbook.

Soit en plus de déclarer ta variable comme public, tu fais une autre déclaration dans une macro.

Notes également que variable public dans une macro ne rime à rien !

Ce que démontré ce fil c'est qu'il est préférable de passer en paramètres des variables locales plutôt que d'avoir recours à des variables public !

Code:

---

1 2 3 4 5 6 7 8

Sub test1() Dim st as string St="salut" Test2 st End sub Sub test2(txt as string) Msgbox txt End sub

---

Citation:

---

Envoyé par Dédé6621

En quoi les variables globales gênent-elles? En ce qui me concerne, j'en ai toute une nomenclature avec description et ça m'évite de réinventer la roue à chaque fois.

---

Attention de ne pas me faire dire ce que je n'ai pas dit.
Les variables globales n'ont rien de mal en soit.
C'est leur utilisation incontrôlée qui pose problème.

Et c'est un constat: La prolifération des globales dans une application est souvent le signe d'erreurs de conception.