Discussion :

[Dédé6621]

Bonjour,

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

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

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

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?!

[anasecu]

Bonjour,

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

[Thumb down]

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

[deedolith]

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.

Code :

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

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.

[Promethee25]

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.

[deedolith]

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

[Dédé6621]

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.

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

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 :

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

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

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?

[deedolith]

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.

[Thumb down]

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 :

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

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