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).
Je n'ai pas représenté les boutons. Mais ceux ci font appel aux
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
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
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 ?)
Partager