Discussion :

[zigmo]

Bonjour à tous,

Voici mon problème : sur le 1er clic sur un CommandButton toutes les variables globales sont effacées et les OLEObjects sont déréférencés. Les clics suivants ne posent pas de problème.

Voici le code VBA :

ThisWorkBook :

Code :

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

1
2
3
4
5
6
7
 
Private Sub Workbook_Open()
 
    Init
    Debug.Print "Workbook_Open(), TestVar = ", TestVar  'Afficher la valeur après l'init.
 
End Sub

Feuil1:

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub BtnTest_Click()
 
    Debug.Print "BtnTest_Click(), TestVar = ", TestVar  'A chaque clic afficher la valeur
                                                        ' à l'entrée dans la routine
    TestVar = 12                                        ' puis recharger la variable.
 
End Sub

Module1:

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
17
18
19
20
21
22
23
24
25
 
Public TestVar As Long
Public TestButton As OLEObject
 
 
'-----------------------------------------------------------------------------------------------
Public Sub Init()
 
Dim Ctrl As Object
 
    For Each Ctrl In ThisWorkbook.Worksheets("Feuil1").OLEObjects
        Ctrl.Delete                                     'Effacer tout objet présent.
    Next Ctrl
                                                        'Création du bouton.
    Set TestButton = ThisWorkbook.Worksheets("Feuil1").OLEObjects.Add( _
            ClassType:="Forms.CommandButton.1", _
            DisplayAsIcon:=False, _
            Left:=100, Top:=10, Width:=50, Height:=30)
 
    TestButton.Name = "BtnTest"
    TestButton.Object.Caption = "Test"
 
    TestVar = 55                                        'Init de la variable globale.
 
End Sub

En utilisant la fenêtre d'exécution on peut voir que TestVar prend les valeurs 55, 0, 12, 12, 12...
Elle est correcte après la création du CommandButton, elle est effacée sur le 1er clic du bouton, et les clics suivants sont corrects.

Le problème n'est pas lié au lancement du code par Workbook_Open(). Il apparaît même si le code est lancé par une macro ordinaire.

Le problème est le même pour des variables objet. Si j'avais créé un autre contrôle AutreCtrl et que j'aie besoin de lire sa valeur il faudra que je le re-référence d'abord :
Set AutreCtrl = ThisWorkbook.Worksheets("Feuil1").OLEObjects("NomDuControle")
sinon "Erreur d'exécution 91 : variable objet non définie". Une fois le contrôle re-référencé je peux lire sa valeur, elle a été correctement conservée.

J'ai lu sur certain forums que la création d'OLEObjects dans une feuille peut effacer les variables globales (bug apparemment connu). Mais ici la variable est initialisée après la création du bouton.

Même comportement avec un OptionButton ou un SpinButton.

Pour contourner le problème je suis obligé de stocker les variables globales dans une feuille, mais c'est vraiment cracra !


Y a-t-il un problème avec mon code ? Quelqu'un a une idée ou a connaissance de ce problème ?

Merci d'avance.

[mercatog]

Bonjour
Je n'ai pas encore d'explication mais j'ai refais ton test autrement.
Dans un même module public, je lance Init, puis Toto (encore du sel, Toto est appelée au sein d'Init)

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Public TestButton As OLEObject
Public TestVar As Long
 
Public Sub Init()
Dim Ctrl As Object
 
TestVar = 55
Debug.Print "1. TestVar= " & TestVar
 
For Each Ctrl In ThisWorkbook.Worksheets("Feuil1").OLEObjects
    Ctrl.Delete
Next Ctrl
Debug.Print "2. TestVar= " & TestVar
 
Set TestButton = ThisWorkbook.Worksheets("Feuil1").OLEObjects.Add( _
            ClassType:="Forms.CommandButton.1", _
            DisplayAsIcon:=False, _
            Left:=100, Top:=10, Width:=50, Height:=30)
 
    TestButton.Name = "BtnTest"
    TestButton.Object.Caption = "Test"
Debug.Print "3. TestVar= " & TestVar
 
Call Toto
Debug.Print "--------------------Fin Sub Init------------------------"
End Sub
 
Public Sub Toto()
Debug.Print "4. TestVar= " & TestVar
End Sub

Le résultat donne

1. TestVar= 55
2. TestVar= 55
3. TestVar= 55
4. TestVar= 55
--------------------Fin Sub Init------------------------
4. TestVar= 0

Il y a effectivement à la fin de Init, une réinitialisation de la variable publique TestVar

[zigmo]

Merci mercatog de t'être penché sur le problème.

De mon côté j'ai continué à investiguer et voici ma conclusion aujourd'hui : la création ou l'effacement dynamiques du bouton provoque la perte de toutes les variables globales. Les variables globales sont disponibles apparemment jusqu'à la fin de l'exécution de la macro qui crée ou efface le bouton, mais ensuite elles sont effacées et ne sont plus disponibles pour les actions suivantes.
Ce comportement concerne les contrôles CommandButton, OptionButton et SpinButton. En fait peut-être tous les OLEObjects ?

Si personne ne voit de souci avec mon code, c'est peut-être un problème avec Excel 2002. J'ai vu sur un forum (ici) la description d'un bug qui correspond à peu près, mais la solution proposée (Application.OnTime) ne fonctionne pas ici.