[XL-2007] Interférence entre Collection et OLEObject. (bug ?)

Interférence entre Collection et OLEObject. (bug ?)

Bonjour,
Je tourne en rond sur un problème depuis plusieurs jours. La cause du problème m'est toujours aussi obscure...

J'ai une variable globale Collection qui garde des données. Appelons la stack.
Un bouton de la feuille de calcul (appelons le bouton1) permet de créer 4 données et de les ajouter dans stack. Tout cela marche à merveille.

J'ai voulu ajouter dans la fonction de bouton1 la création dynamique de boutons dans la feuille de calcul comme cela :
Code:

1 2 3 4 Worksheets("main").OLEObjects.Add ClassType:="Forms.CommandButton.1", _ Left:=2, _ Width:=15, _ Height:=12.5
Et bien l'ajout de cette simple ligne fait purger stack de toutes ses données membres. Il suffit que je commente cette ligne pour que stack marche parfaitement à nouveau !

Si vous voulez voir la chose en code, voici :
Bouton1 appelle la fonction AddTrades.
Code:

1 2 3 4 5 6 Sub AddTrades() Call AddTrade 'ajout donnée 1 Call AddTrade 'ajout donnée 2 Call AddTrade 'ajout donnée 3 Call AddTrade 'ajout donnée 4 End Sub
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub AddTrade() Dim newTrade As New Trade Set newTrade = CreateTrade() 'Add the new trade to the list of trades Dim key As String key = stack.Count + 1 stack.Add Item:=newTrade, key:=key Worksheets("main").OLEObjects.Add ClassType:="Forms.CommandButton.1", _ Left:=2, _ Width:=15, _ Height:=12.5 End Sub
Toute vague idée est bienvenue !

Merci beaucoup.

Peut-on avoir tout le code ça permettra de gagner du temps

Impossible de donner le code complet. C'est plusieurs centaines de lignes réparties sur plusieurs modules / module de classe.

Néanmoins, je peux donner un code plus détaillé pour la partie qui nous intéresse :

Voici le code d'appel du bouton origine des évènements :

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Worksheets("main").Unprotect
 
    Call AddTrades(ToggleButton1, ToggleButton2, ToggleButton3, ToggleButton4, ToggleButton5, _
                   ComboBox1, ComboBox2, ComboBox3, ComboBox4, ComboBox5, iniO1L, iniO1C, iniO2L, iniO2C, iniO3L, iniO3C, _
                   iniO4L, iniO4C, iniSpotL, iniSpotC)
 
    Worksheets("main").Protect
    Application.ScreenUpdating = True
End Sub

La fonction AddTrades :

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
Sub AddTrades(T1, T2, T3, T4, T5, C1, C2, C3, C4, C5, li1, col1, li2, col2, li3, col3, li4, col4, li5, col5)
 
    If T1.value = True Then
        Call AddTrade(C1, li1, col1)
    End If
 
    If T2.value = True Then
        Call AddTrade(C2, li2, col2)
    End If
 
    If T3.value = True Then
        Call AddTrade(C3, li3, col3)
    End If
 
    If T4.value = True Then
        Call AddTrade(C4, li4, col4)
    End If
 
    If T5.value = True Then
        Call AddTrade(C5, li5, col5)
    End If
 
    Call DrawDelimitationLine
 
End Sub

La méthode AddTrade() :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub AddTrade(Combo, ligne, colonne)
 
    Dim newTrade As New Trade
    Set newTrade = CreateTrade(Combo, ligne, colonne)
 
    'Add the new trade to the list of trades
    Dim key As String
    key = gTrades.Count + 1
    gTrades.Add Item:=newTrade, key:=key
 
    'Add the trade to the excel list
    Dim line As Range
    Set line = Worksheets("main").Range("B52").Offset(gTrades.Count, 0)
 
    Worksheets("main").OLEObjects.Add ClassType:="Forms.CommandButton.1", _
                                      Left:=2, _
                                      Width:=15, _
                                      Height:=12.5
 
    line.Offset(0, 0).value = newTrade.GetDealDate()
    line.Offset(0, 1).value = newTrade.GetDealType()
    line.Offset(0, 2).value = newTrade.GetVolume()
    line.Offset(0, 3).value = newTrade.GetDealUnderlyingPrice()
    line.Offset(0, 4).value = newTrade.GetStrike()
    line.Offset(0, 5).value = gTrades.Count
    line.Offset(0, 6).value = newTrade.GetTotalPremium()
    'TODO: change ?
    line.Offset(0, 7).value = Range("currentInterestRate").value
    line.Offset(0, 8).value = newTrade.GetDividend()
    line.Offset(0, 9).value = newTrade.GetMaturityDate()
    line.Offset(0, 10).value = newTrade.GetTimeLeftToMaturity()
    'line.Offset(0, 11).value =
    line.Offset(0, 12).value = newTrade.Price(Range("currentSpot").value, Range("currentInterestRate").value, Range("currentVolatility").value)
    'line.Offset(0, 13).value = 'Gain
    line.Offset(0, 14).value = "-"
    line.Offset(0, 15).value = newTrade.Delta(Range("currentSpot").value, Range("currentInterestRate").value, Range("currentVolatility").value)
    line.Offset(0, 16).value = newTrade.Gamma(Range("currentSpot").value, Range("currentInterestRate").value, Range("currentVolatility").value)
    line.Offset(0, 17).value = newTrade.Vega(Range("currentSpot").value, Range("currentInterestRate").value, Range("currentVolatility").value)
    line.Offset(0, 18).value = newTrade.Theta(Range("currentSpot").value, Range("currentInterestRate").value, Range("currentVolatility").value)
    line.Offset(0, 19).value = newTrade.Rho(Range("currentSpot").value, Range("currentInterestRate").value, Range("currentVolatility").value)
    line.Offset(0, 20).value = newTrade.Delta(Range("currentSpot").value, Range("currentInterestRate").value, Range("currentVolatility").value)
    line.Offset(0, 21).value = newTrade.Gamma(Range("currentSpot").value, Range("currentInterestRate").value, Range("currentVolatility").value)
    line.Offset(0, 22).value = newTrade.Vega(Range("currentSpot").value, Range("currentInterestRate").value, Range("currentVolatility").value)
    line.Offset(0, 23).value = newTrade.Theta(Range("currentSpot").value, Range("currentInterestRate").value, Range("currentVolatility").value)
    line.Offset(0, 24).value = newTrade.Rho(Range("currentSpot").value, Range("currentInterestRate").value, Range("currentVolatility").value)
 
    'Paint the line in yellow
    Worksheets("main").Range(Cells(52, 2), Cells(52, 26)).Offset(gTrades.Count, 0).Interior.Color = RGB(255, 255, 153) 'Yellow
End Sub

Comme vous le voyez, le code est assez indépendant. N'hésitez pas à demander s'il vous faut autre chose.

Tout ce code marche parfaitement si l'on commente la création de l'OLEObject. Et si on le garde, le code ajoute bien les 4 données et crée les 4 boutons, seulement, au deuxième appui sur le bouton d'origine, la liste gTrades est purgée. Ce comportement disparaît sitôt la création dynamique de bouton retirée.

Merci encore,

O.

Désolé, j'ai bien réfléchi mais je ne vois pas.
Peut -être un autre

Citation:

Envoyé par JPierreM

Désolé, j'ai bien réfléchi mais je ne vois pas.
Peut -être un autre

La est bien le problème, j'ai l'impression que c'est un bug excel... :(