Porté de variable

Michel Gaboly

28/11/2003 à 14:29

--------------E35E338FA36B88AFAA70A77A
Content-Type: text/plain; charset=iso-8859-1; x-mac-type="54455854"; x-mac-creator="4D4F5353"
Content-Transfer-Encoding: 8bit

Bonjour,

Il n'est pas possible de définir comme Public une variable
ailleurs que dans un module standard.

Plus exactement, on peut le faire, mais cela ne marche pas
ailleurs que dans un module standard.

Transfère simplement "Public MaVar as string" dans un
module adapté.

Il y a plusieurs messages ici récemment sur ce thème,
voici une réponse détaillée que j'ai faite :

Bonsoir,

Tu joues sur les mots ;-))

Si pour employer la variable, tu es obligé de la qualifier avec le nom du
UserForm où elle a été définie, ce n'est pas réellement une variable publique.

Pour ce faire, tu n'as d'ailleurs pas besoin de variable : tu peux utiliser un
contrôle quelconque du UserForm avec la propriété Visible ou Enabled à False.

D'autre part, cela ne marche pas :

1 - Crée un nouveau classeur

2 - Bascule dans l'environnement VBA

3 - Insère un module standard, avec ce code :

Option Explicit
Public VeritableVarPublique

Sub Test()
UserForm1.Show
MsgBox "Num : " & UserForm1.Num
MsgBox "VeritableVarPublique : " & VeritableVarPublique
End Sub

4 - Insère un UserForm avec un CommandButton et ce code :

Option Explicit
Public Num As Integer

Private Sub UserForm_Initialize()
Num = 1
End Sub

Private Sub CommandButton1_Click()
Num = 2
VeritableVarPublique = 2
Unload Me
End Sub

5 - Exécute ensuite la Sub "Test" du module. Le UserForm est affiché,
puis 2 messages apparaissent successivement :

Num : 1

puis

VeritableVarPublique : 2

Alors qu'après le clic sur le CommandButton, ces 2 lignes ont été exécutées :

Num = 2
VeritableVarPublique = 2

Pourtant Num est égal à 1 et non à 2

En fait, la dernière valeur de Num (2) n'est plus accessible après le
"Unload".

Pour afficher Num, la procédure recharge en mémoire le UserForm
(méthode Load et Non Show). Le code associé à l'événement Initialize est
exécuté, ce qui explique la valeur obtenue, 1.

Par contre, même après le Unload du UserForm, VeritableVarPublique
est toujours égale à 2.

La définition d'une variable Public dans un module standard fonctionne, ce
n'est pas le cas avec le module associé à un UserForm : le mot-clef Public
est accepté, mais c'est un leurre ;-(((

Bonjour

Il est tout à fait possible de déclarer une variable publique dans un module
de classe, et donc de userform. Cette variable devient alors une propriété
en lecture-écriture du le userform et on peut l'appeler d'un code externe
via l'objet userform qui la contient. Cela évite les variables public dans
un module standard

Dans le code du userform ( par exemple nommé UserForm1 ), on écrit, en tête
de module et après les éventuelles lignes Option ...
Public MaVariablePublique as Range ( pour reprendre l'exemple de
l'initiateur de la ficelle )

Dans le code externe au userform, on pourra utiliser cette variable via
UserForm1.MaVariablePublique = Cells(Ligne,Colonne)

--

Bonjours à tous

Je n'arrive pas a faire passer la valeur d'une variable
d'une userform a une userform.

Je m'explique:

Dans ma Userform1 je declare "public MaVar as string"
Je lui donne la valeur "bonjours"

Lorsque je load Userform2 MaVar devient vide !

il doit y avoir une solution simple ?

Merci de votre aide

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

--------------E35E338FA36B88AFAA70A77A
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit

<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
Bonjour,
Il n'est pas possible de définir comme Public une variable
 ailleurs que dans un module standard.
Plus exactement, on peut le faire, mais cela ne marche pas
 ailleurs que dans un module standard.
Transfère simplement "Public MaVar as string" dans un
 module adapté.
  
Il y a plusieurs messages ici récemment sur ce thème,
 voici une  réponse détaillée que j'ai faite
:
  
<blockquote>Bonsoir,
Tu joues sur les mots ;-))
Si pour employer la variable, tu es obligé de la qualifier avec
le nom du
 UserForm où elle a été définie, ce n'est
pas réellement une variable publique.
Pour ce faire, tu n'as d'ailleurs pas besoin de variable : tu peux utiliser
un
 contrôle quelconque du UserForm avec la propriété
Visible ou Enabled à False.
D'autre part, cela ne marche pas :
1 - Crée un nouveau classeur
2 - Bascule dans l'environnement VBA
3 - Insère un module standard, avec ce code :
    Option Explicit
     Public VeritableVarPublique
    Sub Test()
         UserForm1.Show
         MsgBox "Num : " & UserForm1.Num
         MsgBox "VeritableVarPublique
: " & VeritableVarPublique
     End Sub
4 - Insère un UserForm avec un CommandButton et ce code :
    Option Explicit
     Public Num As Integer
    Private Sub UserForm_Initialize()
         Num = 1
     End Sub
    Private Sub CommandButton1_Click()
         Num = 2
         VeritableVarPublique = 2
         Unload Me
     End Sub
5 - Exécute ensuite la Sub "Test" du module. Le UserForm est
affiché,
 puis 2 messages apparaissent successivement :
    Num : 1
puis
    VeritableVarPublique : 2
  
Alors qu'après le clic sur le CommandButton, ces 2 lignes ont
été exécutées :
        Num = 2
         VeritableVarPublique = 2
Pourtant Num est égal à 1 et non à 2
En fait, la dernière valeur de Num (2) n'est plus accessible
après le
 "Unload".
Pour afficher Num, la procédure recharge en mémoire le
UserForm
 (méthode Load et Non Show). Le code associé à
l'événement Initialize est
 exécuté, ce qui explique la valeur obtenue, 1.
Par contre, même après le Unload du UserForm, VeritableVarPublique
 est toujours égale à 2.
La définition d'une variable Public dans un module standard fonctionne,
ce
 n'est pas le cas avec le module associé à un UserForm
: le mot-clef Public
 est accepté, mais c'est un leurre ;-(((
  
> Bonjour
 >
 > Il est tout à fait possible de déclarer une variable
publique dans un module
 > de classe, et donc de userform. Cette variable devient alors une
propriété
 > en lecture-écriture du le userform et on peut l'appeler d'un
code externe
 > via l'objet userform qui la contient. Cela évite les variables
public dans
 > un module standard
 >
 > Dans le code du userform ( par exemple nommé UserForm1 ),
on écrit, en tête
 > de module et après les éventuelles lignes Option ...
 > Public MaVariablePublique as Range ( pour reprendre l'exemple de
 > l'initiateur de la ficelle )
 >
 > Dans le code externe au userform, on pourra utiliser cette variable
via
 >     UserForm1.MaVariablePublique = Cells(Ligne,Colonne)
 >
 > --</blockquote>

<blockquote TYPE=CITE>Bonjours à tous
Je n'arrive pas a faire passer la valeur d'une variable
 d'une userform a une userform.
Je m'explique:
Dans ma Userform1 je declare "public MaVar as string"
 Je lui donne la valeur "bonjours"
Lorsque je load Userform2 MaVar devient vide !
il doit y avoir une solution simple ?
Merci de votre aide</blockquote>

--
 Cordialement,
Michel Gaboly
 <A HREF="http://www.gaboly.com">http://www.gaboly.com</A>
  </html>

--------------E35E338FA36B88AFAA70A77A--

--------------E35E338FA36B88AFAA70A77A
Content-Type: text/plain; charset=iso-8859-1; x-mac-type="54455854"; x-mac-creator="4D4F5353"
Content-Transfer-Encoding: 8bit

Bonjour,

Il n'est pas possible de définir comme Public une variable
ailleurs que dans un module standard.

Plus exactement, on peut le faire, mais cela ne marche pas
ailleurs que dans un module standard.

Transfère simplement "Public MaVar as string" dans un
module adapté.

Il y a plusieurs messages ici récemment sur ce thème,
voici une réponse détaillée que j'ai faite :

Bonsoir,

Tu joues sur les mots ;-))

Si pour employer la variable, tu es obligé de la qualifier avec le nom du
UserForm où elle a été définie, ce n'est pas réellement une variable publique.

Pour ce faire, tu n'as d'ailleurs pas besoin de variable : tu peux utiliser un
contrôle quelconque du UserForm avec la propriété Visible ou Enabled à False.

D'autre part, cela ne marche pas :

1 - Crée un nouveau classeur

2 - Bascule dans l'environnement VBA

3 - Insère un module standard, avec ce code :

Option Explicit
Public VeritableVarPublique

Sub Test()
UserForm1.Show
MsgBox "Num : " & UserForm1.Num
MsgBox "VeritableVarPublique : " & VeritableVarPublique
End Sub

4 - Insère un UserForm avec un CommandButton et ce code :

Option Explicit
Public Num As Integer

Private Sub UserForm_Initialize()
Num = 1
End Sub

Private Sub CommandButton1_Click()
Num = 2
VeritableVarPublique = 2
Unload Me
End Sub

5 - Exécute ensuite la Sub "Test" du module. Le UserForm est affiché,
puis 2 messages apparaissent successivement :

Num : 1

puis

VeritableVarPublique : 2

Alors qu'après le clic sur le CommandButton, ces 2 lignes ont été exécutées :

Num = 2
VeritableVarPublique = 2

Pourtant Num est égal à 1 et non à 2

En fait, la dernière valeur de Num (2) n'est plus accessible après le
"Unload".

Pour afficher Num, la procédure recharge en mémoire le UserForm
(méthode Load et Non Show). Le code associé à l'événement Initialize est
exécuté, ce qui explique la valeur obtenue, 1.

Par contre, même après le Unload du UserForm, VeritableVarPublique
est toujours égale à 2.

La définition d'une variable Public dans un module standard fonctionne, ce
n'est pas le cas avec le module associé à un UserForm : le mot-clef Public
est accepté, mais c'est un leurre ;-(((

Bonjour

Il est tout à fait possible de déclarer une variable publique dans un module
de classe, et donc de userform. Cette variable devient alors une propriété
en lecture-écriture du le userform et on peut l'appeler d'un code externe
via l'objet userform qui la contient. Cela évite les variables public dans
un module standard

Dans le code du userform ( par exemple nommé UserForm1 ), on écrit, en tête
de module et après les éventuelles lignes Option ...
Public MaVariablePublique as Range ( pour reprendre l'exemple de
l'initiateur de la ficelle )

Dans le code externe au userform, on pourra utiliser cette variable via
UserForm1.MaVariablePublique = Cells(Ligne,Colonne)

--

Bonjours à tous

Je n'arrive pas a faire passer la valeur d'une variable
d'une userform a une userform.

Je m'explique:

Dans ma Userform1 je declare "public MaVar as string"
Je lui donne la valeur "bonjours"

Lorsque je load Userform2 MaVar devient vide !

il doit y avoir une solution simple ?

Merci de votre aide

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

--------------E35E338FA36B88AFAA70A77A
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit

<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
Bonjour,
Il n'est pas possible de définir comme Public une variable
 ailleurs que dans un module standard.
Plus exactement, on peut le faire, mais cela ne marche pas
 ailleurs que dans un module standard.
Transfère simplement "Public MaVar as string" dans un
 module adapté.
  
Il y a plusieurs messages ici récemment sur ce thème,
 voici une  réponse détaillée que j'ai faite
:
  
<blockquote>Bonsoir,
Tu joues sur les mots ;-))
Si pour employer la variable, tu es obligé de la qualifier avec
le nom du
 UserForm où elle a été définie, ce n'est
pas réellement une variable publique.
Pour ce faire, tu n'as d'ailleurs pas besoin de variable : tu peux utiliser
un
 contrôle quelconque du UserForm avec la propriété
Visible ou Enabled à False.
D'autre part, cela ne marche pas :
1 - Crée un nouveau classeur
2 - Bascule dans l'environnement VBA
3 - Insère un module standard, avec ce code :
    Option Explicit
     Public VeritableVarPublique
    Sub Test()
         UserForm1.Show
         MsgBox "Num : " & UserForm1.Num
         MsgBox "VeritableVarPublique
: " & VeritableVarPublique
     End Sub
4 - Insère un UserForm avec un CommandButton et ce code :
    Option Explicit
     Public Num As Integer
    Private Sub UserForm_Initialize()
         Num = 1
     End Sub
    Private Sub CommandButton1_Click()
         Num = 2
         VeritableVarPublique = 2
         Unload Me
     End Sub
5 - Exécute ensuite la Sub "Test" du module. Le UserForm est
affiché,
 puis 2 messages apparaissent successivement :
    Num : 1
puis
    VeritableVarPublique : 2
  
Alors qu'après le clic sur le CommandButton, ces 2 lignes ont
été exécutées :
        Num = 2
         VeritableVarPublique = 2
Pourtant Num est égal à 1 et non à 2
En fait, la dernière valeur de Num (2) n'est plus accessible
après le
 "Unload".
Pour afficher Num, la procédure recharge en mémoire le
UserForm
 (méthode Load et Non Show). Le code associé à
l'événement Initialize est
 exécuté, ce qui explique la valeur obtenue, 1.
Par contre, même après le Unload du UserForm, VeritableVarPublique
 est toujours égale à 2.
La définition d'une variable Public dans un module standard fonctionne,
ce
 n'est pas le cas avec le module associé à un UserForm
: le mot-clef Public
 est accepté, mais c'est un leurre ;-(((
  
> Bonjour
 >
 > Il est tout à fait possible de déclarer une variable
publique dans un module
 > de classe, et donc de userform. Cette variable devient alors une
propriété
 > en lecture-écriture du le userform et on peut l'appeler d'un
code externe
 > via l'objet userform qui la contient. Cela évite les variables
public dans
 > un module standard
 >
 > Dans le code du userform ( par exemple nommé UserForm1 ),
on écrit, en tête
 > de module et après les éventuelles lignes Option ...
 > Public MaVariablePublique as Range ( pour reprendre l'exemple de
 > l'initiateur de la ficelle )
 >
 > Dans le code externe au userform, on pourra utiliser cette variable
via
 >     UserForm1.MaVariablePublique = Cells(Ligne,Colonne)
 >
 > --</blockquote>

<blockquote TYPE=CITE>Bonjours à tous
Je n'arrive pas a faire passer la valeur d'une variable
 d'une userform a une userform.
Je m'explique:
Dans ma Userform1 je declare "public MaVar as string"
 Je lui donne la valeur "bonjours"
Lorsque je load Userform2 MaVar devient vide !
il doit y avoir une solution simple ?
Merci de votre aide</blockquote>

--
 Cordialement,
Michel Gaboly
 <A HREF="http://www.gaboly.com">http://www.gaboly.com</A>
  </html>

--------------E35E338FA36B88AFAA70A77A--

Vous avez filtré cet utilisateur ! Consultez son message

--------------E35E338FA36B88AFAA70A77A
Content-Type: text/plain; charset=iso-8859-1; x-mac-type="54455854"; x-mac-creator="4D4F5353"
Content-Transfer-Encoding: 8bit

Bonjour,

Il n'est pas possible de définir comme Public une variable
ailleurs que dans un module standard.

Plus exactement, on peut le faire, mais cela ne marche pas
ailleurs que dans un module standard.

Transfère simplement "Public MaVar as string" dans un
module adapté.

Il y a plusieurs messages ici récemment sur ce thème,
voici une réponse détaillée que j'ai faite :

Bonsoir,

Tu joues sur les mots ;-))

Si pour employer la variable, tu es obligé de la qualifier avec le nom du
UserForm où elle a été définie, ce n'est pas réellement une variable publique.

Pour ce faire, tu n'as d'ailleurs pas besoin de variable : tu peux utiliser un
contrôle quelconque du UserForm avec la propriété Visible ou Enabled à False.

D'autre part, cela ne marche pas :

1 - Crée un nouveau classeur

2 - Bascule dans l'environnement VBA

3 - Insère un module standard, avec ce code :

Option Explicit
Public VeritableVarPublique

Sub Test()
UserForm1.Show
MsgBox "Num : " & UserForm1.Num
MsgBox "VeritableVarPublique : " & VeritableVarPublique
End Sub

4 - Insère un UserForm avec un CommandButton et ce code :

Option Explicit
Public Num As Integer

Private Sub UserForm_Initialize()
Num = 1
End Sub

Private Sub CommandButton1_Click()
Num = 2
VeritableVarPublique = 2
Unload Me
End Sub

5 - Exécute ensuite la Sub "Test" du module. Le UserForm est affiché,
puis 2 messages apparaissent successivement :

Num : 1

puis

VeritableVarPublique : 2

Alors qu'après le clic sur le CommandButton, ces 2 lignes ont été exécutées :

Num = 2
VeritableVarPublique = 2

Pourtant Num est égal à 1 et non à 2

En fait, la dernière valeur de Num (2) n'est plus accessible après le
"Unload".

Pour afficher Num, la procédure recharge en mémoire le UserForm
(méthode Load et Non Show). Le code associé à l'événement Initialize est
exécuté, ce qui explique la valeur obtenue, 1.

Par contre, même après le Unload du UserForm, VeritableVarPublique
est toujours égale à 2.

La définition d'une variable Public dans un module standard fonctionne, ce
n'est pas le cas avec le module associé à un UserForm : le mot-clef Public
est accepté, mais c'est un leurre ;-(((

Bonjour

Il est tout à fait possible de déclarer une variable publique dans un module
de classe, et donc de userform. Cette variable devient alors une propriété
en lecture-écriture du le userform et on peut l'appeler d'un code externe
via l'objet userform qui la contient. Cela évite les variables public dans
un module standard

Dans le code du userform ( par exemple nommé UserForm1 ), on écrit, en tête
de module et après les éventuelles lignes Option ...
Public MaVariablePublique as Range ( pour reprendre l'exemple de
l'initiateur de la ficelle )

Dans le code externe au userform, on pourra utiliser cette variable via
UserForm1.MaVariablePublique = Cells(Ligne,Colonne)

--

Bonjours à tous

Je n'arrive pas a faire passer la valeur d'une variable
d'une userform a une userform.

Je m'explique:

Dans ma Userform1 je declare "public MaVar as string"
Je lui donne la valeur "bonjours"

Lorsque je load Userform2 MaVar devient vide !

il doit y avoir une solution simple ?

Merci de votre aide

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

--------------E35E338FA36B88AFAA70A77A
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit

<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
Bonjour,
Il n'est pas possible de définir comme Public une variable
 ailleurs que dans un module standard.
Plus exactement, on peut le faire, mais cela ne marche pas
 ailleurs que dans un module standard.
Transfère simplement "Public MaVar as string" dans un
 module adapté.
  
Il y a plusieurs messages ici récemment sur ce thème,
 voici une  réponse détaillée que j'ai faite
:
  
<blockquote>Bonsoir,
Tu joues sur les mots ;-))
Si pour employer la variable, tu es obligé de la qualifier avec
le nom du
 UserForm où elle a été définie, ce n'est
pas réellement une variable publique.
Pour ce faire, tu n'as d'ailleurs pas besoin de variable : tu peux utiliser
un
 contrôle quelconque du UserForm avec la propriété
Visible ou Enabled à False.
D'autre part, cela ne marche pas :
1 - Crée un nouveau classeur
2 - Bascule dans l'environnement VBA
3 - Insère un module standard, avec ce code :
    Option Explicit
     Public VeritableVarPublique
    Sub Test()
         UserForm1.Show
         MsgBox "Num : " & UserForm1.Num
         MsgBox "VeritableVarPublique
: " & VeritableVarPublique
     End Sub
4 - Insère un UserForm avec un CommandButton et ce code :
    Option Explicit
     Public Num As Integer
    Private Sub UserForm_Initialize()
         Num = 1
     End Sub
    Private Sub CommandButton1_Click()
         Num = 2
         VeritableVarPublique = 2
         Unload Me
     End Sub
5 - Exécute ensuite la Sub "Test" du module. Le UserForm est
affiché,
 puis 2 messages apparaissent successivement :
    Num : 1
puis
    VeritableVarPublique : 2
  
Alors qu'après le clic sur le CommandButton, ces 2 lignes ont
été exécutées :
        Num = 2
         VeritableVarPublique = 2
Pourtant Num est égal à 1 et non à 2
En fait, la dernière valeur de Num (2) n'est plus accessible
après le
 "Unload".
Pour afficher Num, la procédure recharge en mémoire le
UserForm
 (méthode Load et Non Show). Le code associé à
l'événement Initialize est
 exécuté, ce qui explique la valeur obtenue, 1.
Par contre, même après le Unload du UserForm, VeritableVarPublique
 est toujours égale à 2.
La définition d'une variable Public dans un module standard fonctionne,
ce
 n'est pas le cas avec le module associé à un UserForm
: le mot-clef Public
 est accepté, mais c'est un leurre ;-(((
  
> Bonjour
 >
 > Il est tout à fait possible de déclarer une variable
publique dans un module
 > de classe, et donc de userform. Cette variable devient alors une
propriété
 > en lecture-écriture du le userform et on peut l'appeler d'un
code externe
 > via l'objet userform qui la contient. Cela évite les variables
public dans
 > un module standard
 >
 > Dans le code du userform ( par exemple nommé UserForm1 ),
on écrit, en tête
 > de module et après les éventuelles lignes Option ...
 > Public MaVariablePublique as Range ( pour reprendre l'exemple de
 > l'initiateur de la ficelle )
 >
 > Dans le code externe au userform, on pourra utiliser cette variable
via
 >     UserForm1.MaVariablePublique = Cells(Ligne,Colonne)
 >
 > --</blockquote>

<blockquote TYPE=CITE>Bonjours à tous
Je n'arrive pas a faire passer la valeur d'une variable
 d'une userform a une userform.
Je m'explique:
Dans ma Userform1 je declare "public MaVar as string"
 Je lui donne la valeur "bonjours"
Lorsque je load Userform2 MaVar devient vide !
il doit y avoir une solution simple ?
Merci de votre aide</blockquote>

--
 Cordialement,
Michel Gaboly
 <A HREF="http://www.gaboly.com">http://www.gaboly.com</A>
  </html>

--------------E35E338FA36B88AFAA70A77A--

28/11/2003 à 22:01

exact, j'ai créé un module, déclaré la variable, et ça
fonctionne nickel.

merci michel

Michel Gaboly

29/11/2003 à 00:31

Le principal est que cela marche ;-))

exact, j'ai créé un module, déclaré la variable, et ça
fonctionne nickel.

merci michel

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

Porté de variable

3 réponses

Veuillez sélectionner un problème