problème de portée de variables

Bonsoir

Je souhaiterai, dans un même module, pouvoir déclarer et initialiser des variables une fois, pour qu'elles soient ensuite visible dans tout le module. Mon idée était la suivante

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Option Explicit Private FeuilleDonnees As Worksheet Private FeuilleMacro As Worksheet Private NbrLigDon As Long   Sub InitialisationVariables() Set FeuilleDonnees = Worksheets("Octobre") Set FeuilleMacro = Worksheets("Macro CRT") ' Déterminer la dernière ligne de la feuille de données NbrLigDon = FeuilleDonnees.Range("A" & Rows.Count).End(xlUp).Row ' ce qui donne 7500 dans mon cas de figure End Sub   Sub valid_1() call InitialisationVariables MsgBox (NbrLigDon) ' je souhaiterai qu'il me retourne 7500 etc End sub   Sub valid_2() call InitialisationVariables   etc End sub

---

Un bouton est attibué à chaque valid_n(), et il n'y a aucun rapport ou lien entre les deux

Il se trouve que MsgBox (NbrLigDon) retourne 0.

Merci à celui ou celle qui m'éclairera sur la raison, car j'ai tout essayé. Public, static...

ps :comment fait-on pour écrire le code "formaté" avec les couleurs ?

Bonjour,

Tout d'abord, il te faut absolument lire ce tutoriel

http://silkyroad.developpez.com/VBA/LesVariables/

Tout dépend de la porté de tes variables.

De plus, je n'ai pas très bien compris le sens de ta dernière question.

Bonsoir MarcelG;7720308

Bon, je vais lire ce que vous m'avez envoyé, la tête reposée.

Citation:

---

De plus, je n'ai pas très bien compris le sens de ta dernière question.

---

question que j'ai oublié d'enlever du premier message puisque j'ai trouvé la sollution (c'est le bouton # => [code ]qu'il faut utiliser pour que le code s'affiche en tant que code dans une discussion, en non [quote])

Bonsoir MarcelG

J'ai lu le tutoriel mais cela ne m'a pas aidé pour autant.
J'ai bien déclaré les variables en tête de module et hors procédure ou fonction, qui plus est par un private qui, si j'ai bien compris, permet de les rendre visibles à toutes procédures du même module.

Je comprend aussi qu'il y a une différence entre :

• Portée : Accessibilité d'une variable ou constante
• Durée de vie : Durée de conservation de la valeur

Dans l'exemple posé, NbrLigDon "meurt" en sortant de la procédure InitialisationVariables (tout comme les autres variables d'ailleurs, par solidarité communautaire, je suppose)
A vrai dire c'est plus cela qui me pose tracas.

Bonsoir,

Et en les déclarant en Public, bien entendu en en-tête de module?

Bonsoir,

pas de problème de portée dans le code que tu nous montre ... est tu sur de nous montrer le bon code ?

Salut,

Essaie comme ceci:

Code:

---

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 26 27 28 29 30 31 32 33 34 35 36

Option Explicit   Private Static Property Get FeuilleDonnees() As Excel.Worksheet Dim Temp As Excel.Worksheet If Temp Is Nothing Then Set Temp = Worksheets("Octobre") End If Set FeuilleDonnees = Temp End Property   Private Static Property Get FeuilleMacro() As Excel.Worksheet Dim Temp As Excel.Worksheet If Temp Is Nothing Then Set Temp = Worksheets("Macro CRT") End If Set FeuilleMacro = Temp End Property   Private Property Get NbrLigDon() As Long With FeuilleDonnees ' Donne 7500 dans mon cas de figure NbrLigDon = .Range("A" & .Rows.Count).End(xlUp).Row End With End Property     ' ------------------------------------------------------------------------------------------------- ' -------------------------------------- CODE ICI ------------------------------------------   Sub valid_1() MsgBox (NbrLigDon) ' je souhaiterai qu'il me retourne 7500 End Sub   Sub valid_2() MsgBox (NbrLigDon) ' je souhaiterai qu'il me retourne 'dynamiquement une valeur en fonction de la dernière ligne End Sub

---

Bonjour,
Tu utilises Option Explicit donc si la variable n'était pas connue dans ta procédure, tu aurais un message d'erreur

Citation:

---

Il se trouve que MsgBox (NbrLigDon) retourne 0.

---

Je soupçonne que tu es peut-être en train de lire une feuille nommée Octobre d'un autre classeur qui serait actif.
Dans la procédure InitialisationVariables() tu initialises les variables objet feuille sans préciser le parent (ThisWorkbook ou autre classeur)

Ajoute cette instruction MsgBox FeuilleDonnees.Name dans ta procédure pour vérifier si la variable contient une valeur.

Code:

---

1 2 3 4 5

Sub valid_1() Call InitialisationVariables MsgBox (NbrLigDon) ' je souhaiterai qu'il me retourne 7500 MsgBox FeuilleDonnees.Name End Sub

---

Bonjour
Merci pour vos réponses
Pour répondre à Philippe Tulliez, je ne travaille que dans un seul classeur.
J'écris mes macros dans "module1". Ces macros sont appelées par des boutons dans la feuille "FeuilleMacro", afin de valider des données qui se trouvent dans la feuille FeuilleDonnees.
C'est une succession de validation valid_1 ; valid_2 ... valid_n, qui n'ont rien à voir les unes des autres.
Pour éviter de déclarer n fois certaines valeurs, je souhaite donc les valider 1 fois dans une procédure, et d'appeler cette procédure n fois.

Je ne l'ai pas mentionné mais, certainement par une solidarité communautaire entre variables réfractaires 8O, les variables worksheets sont aussi vide.

Bonjour BBIL

Oui, c'est le bon code.

Bonjour Nouveau2
Ca marche, mais je ne comprends pas pourquoi il faut faire si "compliqué"

Citation:

---

Code:

---

1 2 3 4 5 6 7 8

Private Static Property Get FeuilleDonnees() As Excel.Worksheet Dim Temp As Excel.Worksheet If Temp Is Nothing Then Set Temp = Worksheets("Octobre") End If Set FeuilleDonnees = Temp End Property

---

---

Bien qu'ayant cherché à le faire, je ne comprends pas le property get
De plus pourquoi passer par une variable temp et pas directement :

Code:

---

1 2	FeuilleDonnees = Worksheets("Octobre")

---

Bonjour,
J'avoue ne pas comprendre la raison pour laquelle ta procédure ne fonctionne pas.
Je l'ai testée chez moi par acquit de conscience et les variables gardent bien leurs valeurs.

Bonjour PLH81.

Voici pourquoi tu obtiens 0 comme valeur.

Pour déclarer une seule et unique variable NbrLigDon de portée classeur,
NbrLigDon doit être déclaré en tête du module dans un module standard (Ex.: Module1).

Bonjour Gérard,
Ce qui est curieux c'est que 'PLH81' insiste sur le fait que sont code est dans le module1

Citation:

---

J'écris mes macros dans "module1". Ces macros sont appelées par des boutons dans la feuille "FeuilleMacro", afin de valider des données qui se trouvent dans la feuille FeuilleDonnees.
C'est une succession de validation valid_1 ; valid_2 ... valid_n, qui n'ont rien à voir les unes des autres.
Pour éviter de déclarer n fois certaines valeurs, je souhaite donc les valider 1 fois dans une procédure, et d'appeler cette procédure n fois.

---

De plus le code affiché lors de la première intervention ne montre pas qu'il y a scission entre la déclaration des variables et la procédure d'initialisation.
Donc si ces codes sont placés dans un module de la feuille, la variable NbrLigDon aurait du renvoyer le nombre de ligne de la feuille Octobre même si le code était placé dans une autre feuille que celle-ci.
Nous parlons bien de variables portées Module et pas Classeur. C'était la question posée initialement.

Citation:

---

Je souhaiterai, dans un même module, pouvoir déclarer et initialiser des variables une fois, pour qu'elles soient ensuite visible dans tout le module.

---

.

Citation:

---

Envoyé par PLH81

Bonjour Nouveau2
Ca marche, mais je ne comprends pas pourquoi il faut faire si "compliqué"



Bien qu'ayant cherché à le faire, je ne comprends pas le property get
De plus pourquoi passer par une variable temp et pas directement :

Code:

---

1 2	FeuilleDonnees = Worksheets("Octobre")

---

---

C'est une propriété en lecture seule. Elle renvoie la référence de la feuille.
Concernant la complexité, tu peux dans ce cas utiliser une variable que tu initialise comme tu le faisait au début.
Dans ce cas, il faudra l'initialiser quelquepart et ne pas réinitialiser le project pour éviter de perdre le contenu de toutes tes variables statiques.

Pour la variable Temp, c'est plutôt une variable qui stock la référence enfaite, pour éviter de perdre trop en performance (dans les boucles surtout).
Les propriétés sont lentes. Ici 3x plus lente qu'avec une variable simple dans une boucle vide de code. Mais bon, une simple lecture d'une cellule dans une boucle fait qu'il n'y aura plus de différence entre utiliser une variable ou passer par une propriété.

-----------------------------------------------------------------------------------------

Si tu veux simplifier (Ici, accessible dans tout le project):

Code:

---

1 2 3 4 5 6 7

Option Explicit Option Private Module   Public Property Get FeuilleDonnees() As Worksheet Set FeuilleDonnees = Worksheets("Octobre") End Property

---

Ou alors tu initialise une variable quelquepart comme dans le WorkbookOpen (idéalement dans chaque début de procédure qui l'utilisera si tu veux bien faire les choses).

A+

Bonjour Philippe

J'ai d'abord compris comme toi que tout le code se trouvait dans un seul et même module.
Mais comme c'était impossible que la même variable ait au même moment 2 valeurs différentes, je me suis dit que son code était fort probablement dans 2 modules : un module standard et un module de feuille, et qu'il y avait donc 2 variables avec le même nom déclarées dans le classeur.

Puis je me suis demandé pourquoi il obtenait zéro comme valeur d'une part, et 4 d'autre part. Il fallait pour cela qu'elle soit dimensionnée numérique dans les 2 modules.

Ca semble rationnel un peu comme approche, mais c'était surtout intuitif, je l'avoue.

Bonjour à tous
Merci pour vos réponses.
Je débute en VBA et je dois donc faire une erreur de conception dans ce projet qui voici
une bonne image valant mieux qu'un long discours, voici la structure du projet dans VBA
Pièce jointe 139750
Un classeur
une feuille (içi)"octobre" qui changera de nom tous les ... mois
une feuille "FeuilleMacro" sur laquelle se trouve les boutons qui appellerons les macros ainsi que des données "références" permettant chacune des validations
un module1 sur lequel se trouvera toutes les procédures et fonctions nécessaires aux validations successives des données se trouvant sur la feuille "octobre" (ou autre)

C'est comme cela que je conçois le projet, mais peut-être y a t-il plus pratique (ou logique)

Docmarti, je vais regarder les exemples que vous m'avez envoyé. Merci.

Citation:

---

un module standard et un module de feuille

---

Je ne savais pas qu'il y avait des modules différents. Je vais chercher de la doc la dessus

bonjour,

et donc tout ton code est dans le module1 ?

Citation:

---

Envoyé par bbil

bonjour,

et donc tout ton code est dans le module1 ?

---

Tout à fait. Ceci dit, ce n'est peut être pas la bonne solution.

Citation:

---

Envoyé par PLH81

Tout à fait. Ceci dit, ce n'est peut être pas la bonne solution.

---

ben si tout le code est dans le module1 il n'y as, comme je te l'ai dis plus haut aucune raison que tu ais des problèmes avec ... peu-être oubli tu de nous dire quelque-chose?

Bonjour,
Je trouve que c'est très bien organisé pour un début et les procédures que tu as affichées très bien structurées avec les initialisations des variables bien séparées, déclaration des variables.
Il y a des personnes qui programment en VBA depuis des années qui n'ont pas un code aussi propre et qui ne déclarent même pas leurs variables.
Pour ma part, je n'ai jamais utilisé de variables privées.
Si tu dois utiliser les variables à la fois dans les modules feuilles et dans le module1 que je te conseille de renommer (c'est plus parlant surtout quand on reprend sont code plusieurs mois après) il est préférable de déclarer les variables comme publiques, ainsi on peut les utiliser dans l'ensemble du projet.

Bonjour BBIL,

Citation:

---

ben si tout le code est dans le module1 il n'y as, comme je te l'ai dis plus haut aucune raison que tu ais des problèmes avec ... peu-être oubli tu de nous dire quelque-chose?

---

Je le pense aussi parce-que le code initial fonctionne parfaitement.

Bon, si vous me dites que ça marche, c'est qu'il doit y avoir quelque chose dans mon code (qui est gros comme une maison et) que je ne vois pas. Je vais reprendre à zéro mon truc.