[XL-2007] Durée de vie d'un objet

[JLP64]

Bonjour à tous,


Je cherche comment conserver un objet de classe, créé à l'ouverture du classeur dans la procédure Workbook_open, jusqu'à la fermeture du classeur pour accéder à ses propriétés tout au long de l'ouverture du classeur.

Merci pour votre aide.

[Jean-Pierre49]

Bonjour

En déclarant ta variable Public dans un module, si j'ai bien compris ta question.



bonne journée

[JLP64]

Bonjour,

J'ai effectivement déclaré l'objet Public dans un module standard, mais je constate que je le perd systématiquement après avoir créé un ComboBox (set ole= Feuil1.OLEObject.ADD ...) dans une procédure sélection_Change sur la feuille 1. C'est un mystère épais .

[patricktoulon]

bonjour

ta variable doit etre en public dans un module standard ainsi que la macro qui declenche la classe


au plaisir

[JLP64]

Merci pour ta réponse.

En complément je t'indique que l'objet qui devrait conserver la propriété est créé à l'ouverture du fichier dans la procédure Workbook_open. La variable objet est bien déclarée public dans un module standard.

Si j'ai bien compris ta remarque, il ne faut pas que j'instancie l'objet dans cette procédure d'événement dans le module de classeur, mais dans un module standard. Je crée donc une fonction qui instancie la classe dans un module standard . Cett fonction étant appelé par Workbook_open à l'ouverture.

J'attend ta validation avant de lancer la modif.

Nota : J'ai observé que si je change le combobox par un contrôle de formulaire Dropdown je n'ai plus aucun problème, l'instance est conservée pendant toute la d'ouverture du classeur.

Encore merci.

[patricktoulon]

c'est exactement ca

au plaisir

[JLP64]

Re,

J'ai réalisé la modif proposée, sans succès.
Entre temps un ami est tombé sur un blog de 2009 ( forum excel) signalant la perte inopinée des variables publics lors de la création dynamique d'un combobox.
Dans mon appli je ne passe par pas un user form, est-ce là la cause du pb.

A+

[patricktoulon]

bonjour
j'avoue que la je cale

pourrais tu poster ton code

rassure moi tu travaille bien sur un classeur et pas plusieurs?????

au plaisir

[JLP64]

Bonjour,

Merci pour ton opiniâtreté sur le sujet.

Je te rassure, je travaille bien avec un seul classeur.
Ci après le code (désolé je ne connais pas encore la manip pour insérer les lignes de code déroulantes comme je le vois dans les messages):


Voici le code situé dans le module de feuille

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
Public Sub combo_click()
suppress
End Sub
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Target.Column = 1 And Target.Row >= 4 Then
        With Target
            Set Ole = Feuil1.OLEObjects.Add(ClassType:="Forms.combobox.1", Link:=False, Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
        End With
       Ole.Name="Combo"
        With Feuil1.OLEObjects("Combo").Object
            .AddItem "Essai1"
            .AddItem "Essai2"
        End With
 
        'Pour vérifier que la valeur de la propriété Instant est bien conservée
        Feuil1.Cells(Target.Row, 2) = zone.instant
      End If
 
End Sub
 
Public Sub suppress()
    With Me.OLEObjects("Combo")
        '.TopLeftCell.Value = .Value
        .Delete = False
    End With
End Sub

Voici le code dans le module de classeur

Code :

1
2
3
Public Sub Workbook_Open()
    instancier
End Sub

Le code dans le module standard

Code :

1
2
3
4
5
6
7
Public zone As ClsZONE
Public Ole As OLEObject
 
Public Sub instancier()
    Set zone = New ClsZONE
    Feuil1.Cells(1, 2) = zone.instant
End Sub

Et enfin dan sle module de classe Zone

Code :

1
2
3
4
5
Public instant As Date
 
Private Sub Class_Initialize()
instant = Now
End Sub

Merci pour ton aide.