Variable tableau dans module de classe

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Variable tableau dans module de classe

alex784

Bonjour,

Je débute en vba et j'aurais bien besoin d'aide s'il vous plaît. Dans une classe Stock que j'ai créée je souhaiterais avoir un tableau contenant les valeurs du cours de ce stock. Du coup j'ai créé un bouton qui permet d'enregistrer son cours, mais rien ne marche et je ne trouve pas l'aide sur les forums.

Pour la classe Stock j'ai écrit :

Code :

Private mCours() As Double
Property Get mCours() As Double
Cours() = mCours()
End Property
Property Let mCours(Cours() As Double)
mCours() = Cours()
End Property

Et dans le module :

Code :

Sub Ajout_MAJ()
Dim StockA As New Stock
Dim LastRow As Integer
LastRow = Range("B" & Rows.Count).End(xlUp).Row
'LastRow me donne le rang de la dernière case de la colonne de valeurs, que je rentre moi-même dans excel.
StockA.Cours() = Range(Cells(5, 3), Cells(LastRow, 3))
End Sub

Pour ce qui est de la variable nom par exemple ça fonctionne, je la récupère de la feuille excel et la mets en variable dans StockA.Nom, mais impossible pour le Cours().

Merci d'avance pour votre aide ! Si vous pensez que l'architecture ou le choix d'un tableau est peu judicieux dans mon cas n'hésitez pas.

Bonne journée.

Alex

Publicité

jpl38

Les tableaux dans les modules de classe, c'est la galère.
Si ça peut t'aider, ce qui suit fonctionne :
Dans la feuille Excel, je mets une valeur quelconque en B7, et dans la plage C5 à C7 les valeurs 1,2,3.
On récupère cette plage dans le tableau mcours, comme le montre le debug.print final dans la fenêtre Exécution.

Module de classe Stock :

Code :

Option Explicit
Private mCours As Variant
Property Get Cours() As Variant
Cours = mCours
End Property
Property Let Cours(ByVal Cours As Variant)
mCours = Cours
End Property

Module normal :

Code :

Option Explicit
Sub Ajout_MAJ()
Dim StockA As New Stock
Dim TabTemp1 As Variant, TabTemp2() As Variant, i As Long, j As Long, k As Long
Dim LastRow As Integer
LastRow = Range("B" & Rows.Count).End(xlUp).Row
'On suppose LastRow plus grand que 5
'On récupère la plage dans un tableau bidimensionnel, que l'on ramène à une seule dimension
TabTemp2 = Range(Cells(5, 3), Cells(LastRow, 3)).Value
i = LBound(TabTemp2, 1): j = UBound(TabTemp2, 1)
ReDim TabTemp1(i To j)
For k = i To j
TabTemp1(k) = TabTemp2(k, 1)
Next k
'on affecte ce tableau à la variable mcours, avec un property Let
StockA.Cours = TabTemp1
'Vérification (utilise le property Get)
For k = i To j
Debug.Print StockA.Cours(k)
Next k
End Sub

Je me suis inspiré de :
https://support.microsoft.com/en-us [...] d-property
et pour tansformer le tableau en deux dimensions en un tableau unidimensionnel de :
http://www.commentcamarche.net/for [...] ableau-vba

Message édité par jpl38 le 23-03-2018 à 13:28:26

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Variable tableau dans module de classe

Sujets relatifs
Comment affecter une valeur quelconque à une variable?	[JS]Traitement d'une variable pouvant être un tableau ou pas
Moyen le plus simple pour lire des fichiers CSV --> Tableau	Actualiser un organigramme PPT à partir d'un tableau excel
Max de chacune des dimensions d'un tableau multidimensionnel	PHPUnit verifier le type de donnée dans un tableau
problème avec variable à contenu "complexe"	Vérifier si variable existe dans la base de donnée
JAVA Variable final ???
Plus de sujets relatifs à : Variable tableau dans module de classe

Page générée en 0.036 secondes