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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
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 :

Option Explicit

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
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 !

Bonne journée.

Alex