Discussion :

[PLH81]

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 :

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

[MarcelG]

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.

[PLH81]

Bonsoir MarcelG;7720308

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

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.

[MarcelG]

Bonsoir,

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

[SfJ5Rpw8]

Bonsoir,

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

[Invité]

Salut,

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

[Philippe Tulliez]

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

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 :

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

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