[XL-2003] [Tableau d'Objet] Stocker des Objets dans un Tableau

[Tableau d'Objet] Stocker des Objets dans un Tableau

Bonjour je cherche a stocker des objets dans un tableau en VBA. Voici mon code :

Class Asset:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Attributs de classe
Public Nom As String
Public ISIN As String
Public Typee As Integer
Public Classe As String
 
Public Sub Init(C As Integer)
 
Nom = Range("B1").Offset(0, C).Value
ISIN = Range("B1").Offset(1, C).Value
Typee = Range("B1").Offset(2, C).Value
Classe = Range("B1").Offset(3, C).Value
 
End Sub

Voici mon moduel de Test :

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub test1()
Dim A As New Asset
 
Dim Vector() As New Asset
ReDim Vector(0 To 1)
 
A.Init (0)
 
Vector(0) = A => ERREUR GENERE "PROPRIETE OU METHODE NON GERER PAR CET OBJET"
 
End Sub

Pouvez vous m'aider.

Merci

Bonjour,

tu as plusieurs solutions

Exemple 1:

Code:

1
2
3
4
5
6
7
8
9
10
Voici mon moduel de Test :
Sub test1()
 Dim Vector() As Asset
 
 ReDim Vector(0 To 1)
 Set Vector(0)=New Asset
 Vector(0).Init (0)
 Set Vector(1)=New Asset
 Vector(1).Init(1)
End Sub

ou encore
Exemple2 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Test1()
 Dim A As Asset
 Dim Vector() As Asset
 
 Redim Vector(0 to 1)
 Set A=New Asset
 A.Init(0)
 Set Vector(0)=A
 Set A=New Asset
 A.Init(1)
 Set Vector(1)=A
End sub

Je te remercie.