Déclaration Variable dans Userform et ThisWorkbook

Version imprimable

04/07/2014, 16h48
grimgrim

Déclaration Variable dans Userform et ThisWorkbook

Bonjour,

Dans l'application que je réalise actuellement, je lance le fichier

J'utilise ThisWorkBook pour tester la présence de mes fichiers et ensuite il lance un userform

A quel niveau dois je mettre mes variables pour quelles soient utilisées dans le projet ?

Merci pour votre retour
04/07/2014, 17h34
Invité

Salut,

Il faut déclarer les variables en Public, puis les appeler ensuite par:
ThisWorkbook.MaVariable (ou VBAProject.ThisWorkbook.MaVariable), à travers tout le projet.

Ici, ThisWorkbook est un CodeName (modifiable). Ce n'est pas le nom de la variable public ThisWorkbook qui elle est fixe et défini en tant que Excel.ThisWorkbook ou Excel.Global.ThisWorkbook ou Excel.Application.ThisWorkbook.

Ok,
J'ai déplacé mes variable dans ThisWorkbook
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 Public NomClasseurApplication As String Public ArtExiste As Integer Public I As Single Public MyArray(30, 5) Public MyArrayEquiv(20, 7) Public MyArrayRefFab(30, 5) Public MyArrayRCS(100, 6) Public MyArrayParam(70, 5) Public MyArrayDAsansCde(10, 6) Public MyArrayCdeNonLivree(10, 6) Public MyArrayStockD(1000, 4) Public MyArrayStockM(1000, 4) Public StockMGlobal As Integer Public StockDGlobal As Integer Public MyArrayRecherche() Public ControlRech As Integer Private Sub Workbook_Open() ' ' NomClasseurApplication = ActiveWorkbook.Name ' Call TestExistenceRepertoire Call OuvrirFichier ' Principal.Show False ' End Sub
dans un bouton dans userform, j'utilise une de ces variables comme tu as indiqué
Code:

1 2 3 4 5 Windows("Revue Referentiel.xls").Activate Sheets("Nomenclature Equipement").Select Nligne = Cells(1, 1).CurrentRegion.Rows.Count Z = 0 Erase ThisWorkbook.MyArray
j'obtiens une erreur
"Erreur de compilation : des constantes, chaines de longueur fixe, tableaux, types définis par l'utilisateur et instructions Declare ne sont pas autorisé&s comme menbres public de modules d'objet"

une idée ?

04/07/2014, 19h12
Philippe Tulliez
Bonjour,
Tu as déjà posé une question similaire concernant la portabilité des variables et je t'ai conseillé dans cette réponse la lecture d'un tuto ce que manifestement tu n'as pas fait.

@Nouveau2

Citation:

Il faut déclarer les variables en Public, puis les appeler ensuite par:
ThisWorkbook.MaVariable (ou VBAProject.ThisWorkbook.MaVariable), à travers tout le projet.

Où as-tu lu cela.
Cela fonctionne effectivement et bizarrement avec cette syntaxe ThisWorkBook.Variable mais ce n'est pas très rationnel

Une variable publique doit être impérativement déclarée dans un module standard.

Tu t'imagines
Code:

1 2 3 4 Private Sub UserForm_Initialize() ThisWorkbook.maVariable = "monTest" Me.TextBox1 = ThisWorkbook.maVariable End Sub
Alors que déclarée publique dans un module standard, on utilise la variable directement par son nom.
04/07/2014, 21h30
grimgrim

c'est évident que j'ai suivi ton conseil

Mais je n'ai pas compris comment je pouvais le traduire dans mon programme

De même, je n'ai pas compris ce que tu viens de me dire

Peux tu expliciter ?

ce qui me perturbe c'est userform qui n'utilise pas les module

Donc en lançant un thisworkbook, qui lance un userform et à l'interieur de cet userform je clique sur un bouton commandebutton qui appelle un programme dans des modules

je n'ai ou les variables visibles de l'ensemble, même des private sub

merci d'avance
04/07/2014, 21h52
Invité

Ah, je n'avais pas suivi la discussion. Je croyais qu'il été question du ThisWorkbook comme étant un choix déjà fait.

Il vaut mieux continuer la discussion sur l'autre discussion dans ce cas, c'est mieux, le contexte étant déjà posé.
04/07/2014, 23h49
grimgrim

non, je n'ai pas trouvé la solution à mon problème exposé juste au dessus

Bonsoir,

inserts un module standard dans ton projet

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public NomClasseurApplication As String
Public ArtExiste As Integer
Public I As Single
Public MyArray(30, 5)
Public MyArrayEquiv(20, 7)
Public MyArrayRefFab(30, 5)
Public MyArrayRCS(100, 6)
Public MyArrayParam(70, 5)
Public MyArrayDAsansCde(10, 6)
Public MyArrayCdeNonLivree(10, 6)
Public MyArrayStockD(1000, 4)
Public MyArrayStockM(1000, 4)
Public StockMGlobal As Integer
Public StockDGlobal As Integer
Public MyArrayRecherche()
Public ControlRech As Integer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_Open()
'
'
NomClasseurApplication = ActiveWorkbook.Name
'
Call TestExistenceRepertoire
 
Call OuvrirFichier
'
Principal.Show False
'
End Sub

Code:

1
2
3
4
Private Sub UserForm_Initialize()
 maVariable = "monTest"
 Me.TextBox1 = maVariable
End Sub

05/07/2014, 21h50
clementmarcotte

Bonjour,

Citation:

Envoyé par Philippe Tulliez

Bonjour,

Cela fonctionne effectivement et bizarrement avec cette syntaxe ThisWorkBook.Variable mais ce n'est pas très rationnel

J'ai comme l'impression que c'est une sorte de "propriété cachée" de VBA; comme si cela avait été mis là (comme, disons, DateDiFF(), pour Lotus) pour des fins de compatibilité avec VB.net, ou comme si c'était un code adapté d'une base commune VB chez Microsoft.

Parce que c'est très similaire à la syntaxe VB.net pour récupérer une valeur d'une variable publique (ou invoquer une méthode publique) d'une classe à partir d'une autre classe.

Mais, tu as amplement raison de te questionner sur cette utilisation en VBA. À ce que je sache, ce n'est pas documenté.
07/07/2014, 14h40
Didier Gonard

Bonjour,

Il est dit partout qu’en VBA , une variable publique doit être déclarée dans un module standard, non sans raison.

Les modules de feuille et de classeur sont déclarés dans le dossier « Micosoft Excel Objets » qui est différent du dossier Modules et sont générés automatiquement par Excel en sous-jacent.

Il y a une raison à ça ; ce sont des pseudos modules de classe et à ce titre ils se comportent comme des modules de classe pour le code que l’on y insère. Une variable « publique » dans un module de classe n’a rien à voir avec une variable publique au sens de celles déclarées dans un module standard et, en fait, reviens à déclarer une propriété pour l’objet du module objet en question… d’où le fait de pouvoir employer « la chose » sous la forme « ThisWorkBook.Variable », la notation VBA étant une notation par point, vous utilisez une propriété du dit objet comme vous le faites couramment avec les objets standards du modèle objet d’Excel.

Donc rien de bizarre, mais du code borderline et dangereux si non maîtrisé ;)

cordialement,

Didier
11/09/2018, 21h16
Vbenoit37

Comportement variable Global

Bonjour,

J'ai un souci qui se rapproche du thème de cette dicsussion,mais avec une variable Global (de plus assez peu documentée sur Internet...):

J'ai une variable de type Global déclarée dans un module standard, avant le début des procédures Sub: donc normalement utilisable par tous les modules et USF.
3 procédures similaires affectent une valeur différente à cette variable,en tout début d'execution, qui doit être récupérée par un USF unique, qui est appelé après que l'affectation de ma variable Global ait été modifiée.

Dans l'USF l'appel à la variable Global se fait par une procédure Private_Sub initialize qui est lancée par l'instruction .show de ma procédure. Le but étant que mon USF affiche dans un champ le texte de la variable Global, dont ma procédure vient de modifier la valeur.

Or le comportement constaté n'est pas celui attendu, et plûtot curieux, car il se rapproche d'un variable Static:
-l'usf prend comme valeur de ma variable Global celle qui a été donné par la dernière procédure exécutée, mais pas celle qui est en cours (il ne met pas à jour la valeur de la variable).
-quand j'execute ma procédure à 2 reprises, ma var. Global prend la valeur attendue dans l'USF, correctement, mais à cette deuxième exécution seulement
-encore plus curieux : quand je lance ma procédure en mode Pas à Pas: ma variable globlale est correctement affectée, et ensuite correctement reconnue par l'USF, et cette fois-ci dés la première execution de la procédure!

Pour précision après l'affichage de l'USF, il y a dans ma procédure une instruction d'attente "Do Events" (mais après l'affichage de l'USF, donc à priori sans rapport de causalité).

Par ailleurs j'utilise une variable Global mais dans l'autre sens : affectée par un USF pour être reconnu par une procédure Sub : là aucun soucis...

Qu'en pensez vous?

Benoit
12/09/2018, 08h14
Invité

https://www.developpez.net/forums/d1.../#post10467165