Utiliser des variables globale pour modules et form

Version imprimable

19/10/2018, 15h46
Borsec28

Utiliser des variables globale pour modules et form
Bonjour,

J'ai declare en debut de module des variables globales pour y affecter les noms de mes feuilles (et ainsi eviter de les chercher partout dans mon code si je souhaite les renommer) :
Code:

1 2 3 4 5 Public Stock As String Public Commande As String Stock = "StockVelos" Commande= "Commande2017"
J'ai ensuite declare mes fonctions Sub () qui viennent chercher des informations dans mes feuilles stock et commande. Cependant j'ai un message d'erreur : erreur de compilation, non valide a l'exterieur de la routine.

1) Où et quand affecter des valeurs a mes variables pour quelle puissent etre utilisees par toutes mes fonctions ?
2) Meme question pour que mes variables globales soient utilisees par mon userform

Mon code fonctionnait avant que je change le nom de mes feuilles par des variables globales

Merci par avance pour votre aide

Rima
19/10/2018, 17h14
Philippe Tulliez

Bonjour,

Citation:

J'ai declare en debut de module des variables globales pour y affecter les noms de mes feuilles (et ainsi eviter de les chercher partout dans mon code si je souhaite les renommer) :

Pour éviter de déclarer des variables publiques et surtout pour ne pas avoir de soucis si l'utilisateur modifie le nom des feuilles, je te conseille d'utiliser la propriété CodeName de la feuille
Pour en savoir plus à lire VBA – CodeName d’une feuille Excel

Citation:

'ai ensuite declare mes fonctions Sub () qui viennent chercher des informations dans mes feuilles stock et commande. Cependant j'ai un message d'erreur : erreur de compilation, non valide a l'exterieur de la routine.

Alors pour obtenir une réponse rapide et pertinente, évite de nous donner des informations au compte-gouttes.
Tu nous affiches la manière dont tu déclares tes variables publiques mais par contre aucune des lignes de codes qui te renvoient une erreur. Crois-tu que nous ayons une boule de cristal ?

Bonjour,

J'ai avance sur mon code, j'ai maintenant plusieurs feuilles. Tout se passe dans le meme module. Cependant, avec ce code je dois executer la macro MaJ_TCD() avant la macro MAJ_Commandes() si je veux que la macro MAJ_Commandes() trouve bien mes feuilles.
Comment faire pour que quelque soit le module ou le userform et quelque soit l'ordre d'execution de mes macros, elles aillent chercher dans la bonne feuille de mon classeur ?

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Public Listeaservir As String
Public ListeFRM6 As String
Public ListeFRM1 As String
Public ListeMCJ As String
Public Stock As String
Public Ordini As String
Public OrdiniTP As String
Public BisogniInterniTP As String
Public BisogniInterni As String
 
 
------
 
Sub MaJ_TCD()
'Mise a jour des TCD
 
Listeaservir = "Liste a servir"
ListeFRM6 = "Liste PJF SAV"
ListeFRM1 = "Liste PJF"
ListeMCJ = "Liste MCJ"
Stock = "Stock"
Ordini = "Ordini"
OrdiniTP = "OrdiniTP"
BisogniInterniTP = "BisogniInterniTP"
BisogniInterni = "BisogniInterni"
 
 
 
    Sheets(BisogniInterniTP).Select
    ActiveSheet.PivotTables("Tabella_pivot1").PivotCache.Refresh
    Sheets(OrdiniTP).Select
    ActiveSheet.PivotTables("Tabella_pivot1").PivotCache.Refresh
    Sheets(Listeaservir).Select
 
End Sub
 
-----
 
Sub MAJ_Commandes()
'
' MAJ_Commandes Macro
'
'
    Range("A5:E5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Sheets(OrdiniTP).Select
    Range("A5:E5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets(Listeaservir).Select
    Range("A5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

merci
Rima

22/10/2018, 14h16
pijaku
Bonjour,

S'il s'agit de stocker des noms de feuilles connus dans des variables publiques, personnellement, j'utiliserait des constantes...

Code:

Public Const NOMFEUILLE As String = "Feuil_4418725"

Et dans le code, depuis n'importe quel module, on utilisera systématiquement la constante pour nommer la feuille :
Code:

1 2 3 With Sheets(NOMFEUILLE) End With
A noter : j'utilise des majuscules pour les constantes afin de les différencier des fonctions et autres variables.

J'ai trouve une solution alternative !

J'ai créé une sub init_var où j'associe mes variables a des valeurs et ensuite dans chaque Sub () j'appelle ma Sub init_var pour initialiser mes variables :

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
Public Listeaservir As String
Public Stock As String
Public Ordini As String
Public OrdiniTP As String
Public BisogniInterniTP As String
Public BisogniInterni As String
 
--------
 
Sub init_var()
 
Listeaservir = "Liste a servir"
Stock = "Stock"
Ordini = "Ordini"
OrdiniTP = "OrdiniTP"
BisogniInterniTP = "BisogniInterniTP"
BisogniInterni = "BisogniInterni"
 
End Sub
 
------------------
 
Sub MaJ_TCD()
 
Call init_var
 
    Sheets(BisogniInterniTP).Select
    ActiveSheet.PivotTables("Tabella_pivot1").PivotCache.Refresh
    Sheets(OrdiniTP).Select
    ActiveSheet.PivotTables("Tabella_pivot1").PivotCache.Refresh
    Sheets(Listeaservir).Select
 
End Sub

Et ca marche aussi bien pour les modules que les form ! :D

Merci en tout cas pour votre temps ! :D