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

Class 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
'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 : Sélectionner tout - Visualiser dans une fenêtre à part
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