Discussion :

[Jabveneau]

Bonjour ...

Vba et Excel 03
Je bute toujours sur le même problème :

Toute instruction de "déchargement" d'un UserForm du genre :

Code :

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

Unload MonUserForm

vide toutes les variables "publiques" du projet et donc : bug assuré ...

Je suis assez tenté de contourner le problème en écrivant à la place :

Code :

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

MonUserForm.hide

Ca résoud le problème mais n'est ce pas contraire au principe d'économiser au maximum , l'espace mémoire ?…


Merci beaucoup ...

[pgz]

Bonjour.

As-tu du code sur l'évènement Terminate de l'userform?

PGZ

[patbou]

bonjour,

Toute instruction de "déchargement" d'un UserForm du genre :

Code :

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

1
2
 
Unload MonUserForm

vide toutes les variables "publiques" du projet et donc : bug assuré ...

Et tu sûre que tes variables sont publiques ?
Regarde si ces variables sont modifiées par un évenement du userform

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Private Sub UserForm_Deactivate()
 
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
End Sub
 
Private Sub UserForm_Terminate()
 
End Sub

[Jabveneau]

Bonjour Patbou, bonjour Pgz

en bref :

je suis sur que ma variable est bien "publique"
elle est déclarée en tête du seul module standard que contient mon projet de cette manière :

Code :

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

1
2
Option Explicit
Public ZoneVierge as range

Par ailleurs cette variable n'est pas modifiée par mon UserForm ... le mot "ZoneVierge" n'apparaît d'ailleurs nul par dans le code associé à l'UserForm

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Deactivate()
 
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
End Sub
 
Private Sub UserForm_Terminate()
 
End Sub

en fouinant sur le web , je suis tombé sur un message d'un gars ayant eu le même problème ... je vous retransmets sa supposition :

"cela veut dire que l'interpréteur arrete l'exécution et détecte une anomalie... mais laquelle ? puisque je n'ai aucun message d'erreur !"

plus loin , il indique avoir résolu le problème un peu au pif , et sans comprendre pourquoi ça marche ! en écrivant "option explicit" en entête de tous les modules . J'ai bien sur fait la même chose mais chez moi , ça ne change rien ...

En tous cas , merci beaucoup de vous pencher sur mon problème et à plus tard ...... RV

[pgz]

A ce stade...

As-tu fais sous VBE Debugage/Compiler? Sans erreur?

Sinon, tu vois comment que c'est à la fermeture d'un usf que ta variable publique est réinitialisée?

Tu as un seul usf?

Quand tu fais une recherche sur tout le projet de 'ZoneVierge', tu trouves quelles lignes?

PGZ

[ouskel'n'or]

Alors ton problème est ailleurs.
Comment lis-tu ton range pour savoir que la variable globale s'est évaporée ?
Teste ça :
- Place des données de A1 à A10
- Dans un module standard, ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Plage As Range
 
Sub Test()
Dim cell As Range
Set Plage = Range("A1:A10")
    Load UserForm1
    UserForm1.Show
    For Each cell In Plage
        MsgBox cell
    Next
End Sub

Dans l'userform, un seul bouton et ce code

Code :

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

1
2
3
Private Sub CommandButton1_Click()
    Unload UserForm1
End Sub

Bonne soirée

[Jabveneau]

Re bonjour Pgz et Ouskel'nord

Pour vous répondre à tous 2 : je sais à quel moment ma variable est réinitialisée en faisant du pas à pas et en interrogeant à chaque fois ma variable grace au volet "Exécution" de VBA ....

Par ailleurs , le mystère s'épaissit :
j'ai commencé par faire scrupuleusement ce que tu me conseillait Ouskel'n'or ... et miracle ! la variable publique "Plage" restait stable !!!

comme ce n'était pas très éloigné de ce que j'avais moi même testé en tous sens , j'ai mis en parrallèle dans le même projet les 2 formes de test en les simplifiant au maximum , c'est à dire en créant 2 UserForm... et bien l'un détruit la variable , l'autre la laisse intact !!! ... pour preuve , voici le code ... si quelqu'un peut m'expliquer , j'lui paye un coup crénom !

voici la description :
- 1 feuille Excel avec 3 boutons , affectés àux 3 macros suivantes :
- 1 seul module standard dont voici l'intégralité du code et qui contient les macros en question

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
Option Explicit
Public Plage As Range
 
Sub Assigne()
    Set Plage = Range("A1:A10")
End Sub
 
Sub Test()
    Load UserForm1
    UserForm1.Show
End Sub
 
Sub TEST2()
    Load USERFORM2
    USERFORM2.Show    
End Sub

- les 2 UserForms rigoureusement identiques aux codes rigoureusement identiques (voir ci dessous) contenant chacun 1 seul CommandButton

Code :

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

1
2
3
4
5
Option Explicit
 
Private Sub CommandButton1_Click()
    Unload Me
End Sub

et bien l'appel de la macro TEST2 laisse intact la variable publique "Plage" , alors que l'appel de la macro Test la désinitialise !!! c'est quand même dingue , non ?

Merci encore et bonne nuit ...

[ouskel'n'or]

Je ne vois rien là que de très normal.
Chaque fois que tu lances une macro placée dans un module standard tu ré-initialises la variable.
Par contre, si tu mets bien ce code dans un module standard, dis-moi ce que ça fait

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Public Plage As Range
 
Sub Assigne()
Dim cell As Range
Set Plage = Range("A1:A10")
    Load UserForm1
    UserForm1.Show
    Load USERFORM2
    USERFORM2.Show
    For Each cell In Plage
        MsgBox cell
    Next
End Sub

et dans les deux userforms, un simple bouton avec Unload.me