Bonjour je cherche a stocker des objets dans un tableau en VBA. Voici mon code :
Class Asset:
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
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
Pouvez vous m'aider.
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
Merci
Partager