Voila je souhaiterais utiliser la fonction "Preserver" Mais cela ne fonctionne pas :

Classe Asset

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
Public Name As String
Public ISIN As String
Public Typee As String
Public Strat_PRI As String
Public Strat_SEC As String
Public Ponderation As Double
 
Public Sub Init(C As Integer)
 
Name = Range("H2").Offset(0, C).Value
ISIN = Range("H2").Offset(1, C).Value
Typee = Range("H2").Offset(2, C).Value
Strat_PRI = Range("H2").Offset(3, C).Value
Strat_SEC = Range("H2").Offset(4, C).Value
Ponderation = Range("H2").Offset(5, C).Value
 
End Sub
__________________________________________________
Dim Vector_Asset() As Asset
Dim A As New Asset
 
For Each r_Asset In Range("Core_Asset")
 
    If (r_Asset.Value = "") Then
        Exit For
 
    End If
    ReDim Preserve Vector_Asset(0 To compt)
    A.Init (compt)
 
    Set Vector_Asset(compt) = A
        compt = compt + 1
 
Next
Voici Mon erreur lorsque je fais :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
MsgBox (Vector_Asset(0).Name)
 MsgBox (Vector_Asset(1).Name)
Cela me rend la mm valeur . Je conclue donc que Preserve n'a pas marché. Pourquoi?
Je vous remercie pour votre aide