Voila je souhaiterais utiliser la fonction "Preserver" Mais cela ne fonctionne pas :
Classe Asset
Voici Mon erreur lorsque je fais :
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
Cela me rend la mm valeur . Je conclue donc que Preserve n'a pas marché. Pourquoi?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 MsgBox (Vector_Asset(0).Name) MsgBox (Vector_Asset(1).Name)
Je vous remercie pour votre aide
Partager