Création dynamique de combobox -> j'en perds ma variable !

Version imprimable

Bonjour,

Il y a quelques temps sur un autre topic (hier en fait) j'ai exposé un soucis de destruction d'objet. Le soucis est similaire : tout marche bien, je clique sur mes boutons, les attributs ont les bonnes valeurs...

Je dé-passive ma création de combobox et c'est le drame.

Le bouton 1 affiche bien les valeurs des attributs (dans un MsgBox)
mais le bouton 2 me sort du "" (i.e null).

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
Dim CBox As OLEObject
 
 
Do While (i_feuille < Sheets.Count + 1)
 
        If (Sheets(i_feuille).Name <> "MENU" And Sheets(i_feuille).Name <> "Courbes") Then
            Worksheets("MENU").Range("D" & i_ligne) = Sheets(i_feuille).Name
            Worksheets("MENU").Range("E" & i_ligne) = "n"
 
            'Set CBox = Sheets(1).OLEObjects.Add(ClassType:="Forms.Combobox.1", Link:=False, DisplayAsIcon:=False, Left:=Worksheets("MENU").Range("F" & i_ligne).Left, Top:=Worksheets("MENU").Range("F" & i_ligne).Top, Width:=Worksheets("MENU").Range("F" & i_ligne).Width, Height:=Worksheets("MENU").Range("F" & i_ligne).Height)
            'CBox.Name = Sheets(i_feuille).Name
 
 
 
            'Dim Template_control As Object
            'Set Template_control = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Combobox.1", Link:=False, DisplayAsIcon:=False, Left:=Worksheets("MENU").Range("F" & i_ligne).Left, Top:=Worksheets("MENU").Range("F" & i_ligne).Top, Width:=Worksheets("MENU").Range("F" & i_ligne).Width, Height:=Worksheets("MENU").Range("F" & i_ligne).Height)
            'ActiveSheet.OLEObjects(ActiveSheet.OLEObjects.Count).Name = Sheets(i_feuille).Name '
 
 
 
 
            Dim i_fichier As Single
            i_fichier = 1
 
            Do While i_fichier <= Actual_ListFichier.Count
            '    ActiveSheet.OLEObjects(ActiveSheet.OLEObjects.Count).Object.AddItem Actual_ListFichier.Item(i_fichier)
                i_fichier = i_fichier + 1
            Loop
 
 
 
            i_ligne = i_ligne + 1
        End If
 
        i_feuille = i_feuille + 1
    Loop

Je n'ai pas représenté les boutons. Mais ceux ci font appel aux
attributs public (des strings) du module qui contient le code ci-dessus.

Comment feriez vous pour garder vos valeurs dans vos attributs ET créer/effacer dynamiquement vos combobox ? (grosso modo est-ce
un problème de nom et de pointeurs ?)

25/05/2012, 15h15
fring

Bonjour,

Citation:

Envoyé par Julien12

Je n'ai pas représenté les boutons. Mais ceux ci font appel aux attributs public (des strings) du module qui contient le code ci-dessus.

:koi:
Et ils sont où ces "attributs" ?
27/05/2012, 23h02
Julien12
Je n'ai copié que la partie du code qui déconne (et ça m'a demandé
pas mal de tests pour l'identifier). Je ferais une copie plus exhaustive
mardi matin

mais grosso modo :
Code:

1 2 3 4 5 6 7 8 9 10 11 Public mavar As string sub bouton_A() mavar = "toto" msgbox mavar end sub sub bouton_B() ...voir la partie en balise dans les posts precédents... msgbox mavar end sub
En mettant l'espion VBE ça me confirme bien le truc.
Si j’appuie sur A j'ai bien toto qui s'affiche. Quand
j'appuie sur B mavar passe à "".

Si je passive les élements relatifs aux OLEObjects dans mon
sub bouton_B() y'a plus de soucis. Mavar reste à "toto" sauf
que mes beaux combobox dynamique ne sont plus créés pour
le coup (car passivés)
27/05/2012, 23h19
SfJ5Rpw8

bonsoir,

il vas falloir que tu poste le code exact de tes deux boutons ainsi que tu nous dise ou est comment tu déclare ta variable ..

pense aussi à rajouter la ligne Option Explicit en haut de toutes tes pages de codes ..

J'ai reproduit mon probleme sur classeur test voila ce que ça
donne :

Feuille 1 : deux boutons A et B appellant les procédures qui vont bien

Code:

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Sub bouton_A()
    Module1.sub_A
    MsgBox Module1.mavar
End Sub
 
Sub bouton_B()
    Module1.sub_B
    MsgBox Module1.mavar
End Sub

Module 1 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public mavar As String
 
Sub sub_A()
    Module1.mavar = "toto"
 
    For i = 1 To 4
        Dim myObj As OLEObject
        Set myObj = Sheets(1).OLEObjects.Add(ClassType:="Forms.Combobox.1", Link:=False, DisplayAsIcon:=False, Left:=20, Top:=(20 + i * 20), Width:=40, Height:=20)
        myObj.Name = "cb_" & i
    Next
 
    'MsgBox Module1.mavar
End Sub
 
Sub sub_B()
 
    'MsgBox Module1.mavar
 
End Sub

Un appui sur A me créer mes combbox et m'affiche toto.
Un appui sur B m'affiche "" (null)

Pourtant mavar est publique...

29/05/2012, 10h28
ZebreLoup

Pour tes boutons, tu as utilisé un contrôle ActiveX ou un contrôle de formulaire ? (Je penche pour le deuxième cas vu qu'il n'y a pas le _click dans tes procédures.)
29/05/2012, 10h43
Julien12

Controles formulaires effectivement.

L'idée étant, à terme, de pouvoir faire un nettoyage (remove) de
tout mes OLEObjects (i.e. toutes mes combo box) et ensuite un
ajout dynamique afin de reinitialisé le tout.

Tu penses que ce serait un problème entre les OLE et les controles
formulaires ?
29/05/2012, 11h06
ZebreLoup

Non, en fait, j'ai fait des tests de mon coté, puis quelques recherches. Et c'est un bug connu d'Excel. On perd les variables globales quand on touche aux OLEObjects dans le code. Et ce même si tu assignes ces variables globales après le OLEObjects.Add.
Malheureusement, je ne vois pas de solution. Par contre, as-tu vraiment besoin de les enlever et les remettre à chaque fois ? Un clear ne suffit pas ? Avec éventuellement la précision visible ou pas.
30/05/2012, 09h19
Julien12

Merci de ta réponse.

J'ai finalement contourné le problème : une listebox et un event sur le doubleclick me permet de remplir des cellules vides avec les valeurs que je veux. C'est...moins classe et moins propre mais bon ça à le mérite de pallier au soucis.

Je vais me mettre en chasse de tes sources pour les OLE, histoire d'être moins bête ce soir. Si tu as toujours les URL sous la main, fais signe.

Par contre...je passe le sujet en résolu ? ou en abandonné ? :/