VBA - Déclarer wb et ws une fois, pour tous les modules

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

Je suis à nouveau confronté à un soucis dont je n'ai jamais réussi à obtenir une réponse convenable :
j'aimerais pouvoir déclarer une fois par exemple à l'ouverture du classeur dans le Workbook_Open() le classeur, les feuilles, éventuellement d'autres objets.

Je déclare publiques le wb et les worksheets dans l'espace de code (module) du classeur
Déjà ça n'est pas accessible dans les autres modules (mais pour ça, il faut mettre en Global les variables sauf que ce n'est pas possible pour des objets non primitifs j'ai l'impression !)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub Workbook_Open() 'variables globales 'Call declarationVariables Set wb = ThisWorkbook Set wsA = wb.Worksheets("AMORTISSEMENT") Set wsT = wb.Worksheets("TABLEAU_AUTOMATIQUE") debug.print wsA.Name & " dans wb_Open" End Sub
Je suis tombé sur pas mal de topics présentant ce même soucis, mais je n'arrive pas à appliquer les solutions. Ca ne marche pas.
Exemple : ce topic

Je n'ai encore jamais rencontré le

Code:

Public Property Get ModelWorksheet As Worksheet

Je me renseigen pour l'utiliser,

Mais avez-vous déjà rencontré ce problème,
COmment l'avez-vous résolu ?

Bien à vous,
Douzal

03/04/2018, 16h29
Marc-L

Bonjour,

c'est superflu vu les variables objet déjà prédéfinies comme ThisWorkbook et les CodeName des feuilles de calculs,
pourquoi donc créer ce qui est déjà existant ?‼

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

1 pièce(s) jointe(s)

Nb : j'ai aussi un autre module avec donc redéclaration des variables (pas bien déjà, ça m'ennuie beaucoup) et là l'affectation n'est pas effective

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
Option Base 1
Option Explicit
 
' ________________________________________
 
'Global wb As Workbook
Public wb As Workbook
 
Public MONTANT As Double
Public TAUX As Long
Public NBPER As Byte
Public TYP As String
 
Public wsA As Worksheet
Public wsT As Worksheet
'Public wb As Workbook
Public c As Range
 
' ________________________________________
 
 
 
 
 
Private Sub valider_Click()
 
'Dim MONTANT As Double
'Dim TAUX As Long
'Dim NBPER As Byte
Dim TYP As String
 
'Dim wsA As Worksheet
'Dim wsT As Worksheet
'Dim wb As Workbook
Dim c As Range
 
'affectation
'Set wb = ThisWorkbook
'Set wsA = wb.Worksheets("AMORTISSEMENT")
'Set wsT = wb.Worksheets("TABLEAU_AUTOMATIQUE")
'Call declarationVariables
 
MsgBox "Dans Valider_Click"
MsgBox wsA.Name & " dans Valider_click"
MsgBox "Dans Valider_Click"
 
 
End Sub

Nb : fichier en pj

03/04/2018, 16h33
DOUZAL

Citation:

Envoyé par Marc-L

Bonjour,

c'est superflu vu les variables objet déjà prédéfinies comme ThisWorkbook et les CodeName des feuilles de calculs,
pourquoi donc créer ce qui est déjà existant ?‼

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Oh ?
Je dois me renseigner sur les CodeNames, jamais entendu parler !

Mais dans chacune de mes proc, j'ai pris la bonne habitude de bien pointer sur le classeru et la feuille, et toujours passer par ces
set wb = thisworkbook
setws1 = wb.worksheets("nomFeuille1")

Y'a plus simple ??
(merci poru ta rapidité)
03/04/2018, 16h33
Marc-L

Les variables prédéfinies automatiquement pour le classeur et ses feuilles de calculs
étant disponibles dans tout type de module de ce même classeur, utiliser directement ThisWorkbook pour le classeur …

Exemple de CodeName dans cette discussion …
03/04/2018, 16h38
DOUZAL

Citation:

Envoyé par Marc-L

Les variables prédéfinies automatiquement pour le classeur et ses feuilles de calculs
étant disponibles dans tout type de module de ce même classeur, utiliser directement ThisWorkbook pour le classeur …

Exemple de CodeName dans cette discussion …

Merci,
Je me renseigne ça peut effectivement être une solution qui change de mes habitudes mais qui fonctionne parfaitement !
Si je peux assigner un String au CodeName, ça va le faire :)

Top,
Je regarde tout ça !!
03/04/2018, 16h41
Marc-L

Conclusion :

en utilisant directement ThisWorkbook ou/et les CodeName des feuilles de calculs,
il est inutile - superfétatoire même ! - de créer des variables pour ces objets.

Sans compter l'utilisation de l'instruction With …

Alors voici, je mets dans le module du classeur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Option Base 1
 
Public wsA As String
 
Private Sub Workbook_Open()
 
' affectation a wsA (portee publique) du codeName de la feuille Amortissement
wsA = ThisWorkbook.Worksheets("AMORTISSEMENT").CodeName
 
 
End Sub

Et dans le bouton associé au clic sur VALIDER :

Code:

1
2
3
4
5
6
Private Sub valider_Click()
 
' "variable non definie"
MsgBox wsA
 
End Sub

La variable n'est pas definie ..

03/04/2018, 16h52
eriiic

Bonjour,

D'accord pour ThisWorkbook, mais pour les feuilles je serais moins catégorique personnellement.
Un codename par défaut est Feuilxx, il faudait tous les reprendre dans VBE si on veut un code autocommenté.
Pour moi c'est plus simple de déclarer une variable, sauf si on veut s'affranchir d'un renommage des feuilles.

La déclarer (Public ou Global selon la portée voulue) au début d'un module Standard, avant toute procédure.
eric
03/04/2018, 16h55
Marc-L

Créer une variable pour le classeur contenant le code ou pour ses propres feuilles de calculs est :

I N U T I L E ‼

Encore une fois et c'est la dernière : juste utiliser directement leurs variables prédéfinies …

Sauf à vouloir perdre du temps et gâcher des ressources systèmes !
03/04/2018, 17h00
Marc-L

Citation:

Envoyé par eriiic

Un codename par défaut est Feuilxx, il faudait tous les reprendre dans VBE si on veut un code autocommenté.

Salut Eric !

le CodeName d'une feuille est modifiable (déjà sans code) afin qu'il soit plus parlant comme l'exemple Facture dans le lien du post #5 …
03/04/2018, 17h05
DOUZAL

Citation:

Envoyé par eriiic

Bonjour,

D'accord pour ThisWorkbook, mais pour les feuilles je serais moins catégorique personnellement.
Un codename par défaut est Feuilxx, il faudait tous les reprendre dans VBE si on veut un code autocommenté.
Pour moi c'est plus simple de déclarer une variable.

La déclarer (Public ou Global selon la portée voulue) au début d'un module Standard, avant toute procédure.
eric

Mais la déclarer global, ça ne fonctionne pas...
Apparemment faudrait que je regarde plutôt sur les Property Get

Je me renseigne dessus :)
03/04/2018, 17h06
DOUZAL

Citation:

Envoyé par Marc-L

Créer une variable pour le classeur contenant le code ou pour ses propres feuilles de calculs est :

I N U T I L E ‼

Encore une fois et c'est la dernière : juste utiliser directement leurs variables prédéfinies …

Sauf à vouloir perdre du temps et gâcher des ressources systèmes !

Mais du coup, je suis obligé de taper ces lignes pour chaque feuille, à chaque fois ?

Code:

wsX = ThisWorkbook.Worksheets("NomFeuilleX").CodeName

Je dois zaper un truc :(
03/04/2018, 17h08
Marc-L

Citation:

Envoyé par Marc-L

il y a bien mieux si le code se trouve dans le classeur contenant la feuille de calculs : son CodeName.

Et dans ce cas il n'y a rien à programmer car c'est déjà un alias !

Dans l'environnement VBA, dans la fenêtre Projet - VBAProject apparait chaque classeur ouvert.
A l'intérieur figure le nom de chaque feuille de calculs entre parenthèses précédée de son CodeName,
par exemple "Feuil1 (facture)" …

Donc au lieu de Worksheets("facture").Range utiliser Feuil1.Range !

Non juste le CodeName de la feuille (Ex Feuil1) comme pourtant déjà expliqué dans l'exemple de ce lien …
03/04/2018, 17h30
DOUZAL

Citation:

Envoyé par Marc-L

Non juste le CodeName de la feuille (Ex Feuil1) comme pourtant déjà expliqué dans l'exemple de ce lien …

Ok.
Donc si l'alias change, je dois aller changer dans tous les appels de l'alias,
Mais sinon la solution est top !

On doit pouvoir gérer la récupération dans une string de l'alia, puis l'appel à la String ayant récupéré l'alias,
Je n'ai aps le temps de m'y pencher à l'heure actuelle mais merci déjà pour ton aide :)

Bien à vous,
Doudouz
03/04/2018, 17h38
Marc-L

Un simple Rechercher / Remplacer dans le VBE …
Appel à une variable String : encore une fois pourquoi vouloir compliquer alors qu'il y a déjà un alias opérationnel ?!

Sinon quand tu crées un projet VBA, pour peu qu'il y ait eu un tant soit peu de jugeote au préalable (analyse)
tu sais déjà avant de coder quoique ce soit quels sont les objets que tu vas utiliser
et si Feuil1 n'est pas parlant pour toi tu peux déjà directement le modifier en ce que tu veux …
03/04/2018, 17h41
eriiic

Oui, je sais changer un codename.
Si tu pouvais éviter les "INUTILE" en gras, rouge et taille 128 stp, j'ai l'impression d'avoir affaire à un ayatollah de la pensée unique là.
Si j'ai envie d'utiliser des variables comme shS ou shD pour mes feuilles source et destination, je peux ou il faut une permission ?
Parce qu'en fait ça m'arrange d'avoir le type même notation au long de certains codes bateaux, même pour des feuilles différentes.
Tu dis.
eric
03/04/2018, 17h44
Marc-L

Eric, tu es bien sûr seul maître à bord !
En espérant que tu libères bien toute variable objet avant la fin de la procédure … :roll:
03/04/2018, 17h50
eriiic

En général oui
Et sa question était quand même "comment bien déclarer une variable publique", et non comment s'en passer ;-)
Donc dans un module Standard, et pas dans un module de classe (comme ThisWorkbook, feuille,...)
03/04/2018, 17h59
Marc-L

Oui mais pour recréer ce qui existe déjà donc autant l'en informer !

Qui plus est peu ou prou sont au courant de l'utilité - pour ne pas dire l'obligation - de libérer les variables objets
avant la fin de la procédure, juste en lisant l'aide VBA de Nothing …
C'est sûr peu d'incidence avec les ordinateurs d'aujourd'hui mais il n'y a pas encore si longtemps sous XP
avec 1Go de RAM je voyais des Excel avec des crashs de mémoire après l'exécution répétitive de telles procédures,
obligation de redémarrer l'ordinateur sans compter le boxon dans les données …

Donc quand c'est inutile, je préfère clairement l'indiquer au lieu de verser dans de l'usine à gaz !

Voir 40 message(s) de cette discussion en une page