Variable tableau dans module de classe

Version imprimable

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:

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:

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

21/03/2018, 16h39
parmi

Bonjour,

Si tu essayais en déclarant mCours en Variant?

Citation:

Envoyé par parmi

Bonjour,

Si tu essayais en déclarant mCours en Variant?

Bonjour et merci pour votre réponse. En mettant en Variant j'ai ça du coup (avec probablement une erreur de ma part) :

Classe :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private mCours() As Variant ' COURS Property Set Cours(MyArray As Variant) mCours = MyArray End Property Public Property Get Cours() As Variant() Cours() = mCours() End Property
Et module la même chose :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Option Explicit 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
J'ai alors ".Cours =" qui est surligné dans le module principal, avec le message d'erreur :
"Erreur de compilation:
Impossible d'affecter à une propriété en lecture seule"

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private mCours() As Double
 
Property Get Cours() As Double()
    Cours() = mCours()
End Property
 
Property Let Cours(ByRef value() As Double)
    mCours() = value()
End Property
Sub Ajout_MAJ()
astRow = 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.
Range(Cells(5, 3), Cells(12, 3)) = 5
Cours() = AsDouble(Range(Cells(5, 3), Cells(12, 3)).value)
End Sub
Public Function AsDouble(V) As Double()
Dim t() As Double
For i = 0 To UBound(V, 1) - 1
    ReDim Preserve t(i)
    t(i) = V(i + 1, 1)
Next
AsDouble = t
End Function

Merci pour votre aide, ça semble marcher, d'ailleurs comment voir si les valeurs de mon cours sont bien enregistrés dans mon instance ?

Et j'ai fait quelque chose de similaire avec les dates, que je voudrais aussi avoir dans un tableau pour pouvoir les mettre en rapport avec la valeur du cours correspondant. J'ai essayé de reprendre ce que vous avez fait :

Classe Stock :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private mDates As Date ' DATES Property Get Dates() As Date() Dates() = mDates() End Property Property Let Dates(Dates() As Date) Dim L As Interger L = Worksheet("Gestion Stocks").Range("B" & Rows.Count).End(xlUp).Row - 4 If L = 0 Then MsgBox "Veuillez renseigner les dates en colonne B." Else: mDates() = Dates() End Property
Et dans le module :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Option Explicit Sub Ajout_MAJ() Dim LastRow As Integer LastRow = Range("C" & Rows.Count).End(xlUp).Row Dim StockA As New Stock StockA.Dates() = AsDate(Range(Cells(5, 2), Cells(LastRow, 2)).Value) End Sub Public Function AsDate(ByRef V) As Date() Dim u() As Date Dim i As Integer Dim LastRow As Integer LastRow = Range("B" & Rows.Count).End(xlUp).Row For i = 5 To LastRow ReDim Preserve u(i) MsgBox V(i - 4, 1) u(i - 5) = V(i - 4, 1) Next
Est-il possible de visualiser les classes ? Et y-a-t-il un moyen plus pratique de mettre en regard les valeurs du cours et les dates correspondantes que d'enregistrer deux tableaux ?

Merci encore !

Alex

En fait j'ai un problème avec les dates qui vient d’apparaître dans mon Property Let Dates, je ne sais pas pourquoi : "mDates () =" est surligné et j'ai le message d'erreur :

"Erreur de compilation:
Tableau attendu"

Classe :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 ' DATES Property Get Dates() As Date() Dates() = mDates() End Property Property Let Dates(Dates() As Date) Dim L As Integer L = Worksheets("Gestion Stocks").Range("B" & Rows.Count).End(xlUp).Row - 4 If L = 0 Then MsgBox "Veuillez renseigner les dates en colonne B." Else: mDates() = Dates() End If End Property
Merci encore.

Bonjour,
Le même cause produisent le même effets ByRef ou ByVal??

évites d'utiliser des objets dépendant d'Excel dans ton module de classe.
on évite d’afficher des message.

il faut voir ton application en 3 tiers.
le client qui est l'interfaces utilisateur (affiche entre autre les MsgBox)
le métier ton module de classe en occurence
la base de données Excel pour ce qui nous concerne.

ainsi ton application devient exploitable presque en l'état si tu change le client web par exemple
ou la base de données SQL serveur par exemle.

en mélangent les genre tu est quittes pour réécrire tout ton code si d'aventure ton client te demande de migrer sur ACCESS.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private mDates As Date' DATES Property Get Dates() As Date() Dates() = mDates() End Property Property Let Dates(ByRef Dates() As Date) Dim L As Interger:L=-1 On error resume next L=ubound(Dates) on error goto 0 If L = -1 Then MsgBox "Veuillez renseigner les dates en colonne B." Else: mDates() = Dates() End Property
Code:

StockA.Dates() = AsDate(Range(Cells(5, 2), Cells(LastRow-4, 2)).Value)
Code:

1 2 3 4 5 6 7 8 9 10 11 Public Function AsDate(ByRef V)As Date() Dim u() As Date Dim i As Integer For i = 0 To uboud(V)-1 ReDim Preserve u(i) MsgBox V(i +1, 1) u(i ) = V(i +1, 1) Next AsDate=U end sub
pour le coup j'ai rien testé.

22/03/2018, 17h18
Alex784

Merci, tout semble marcher, en tous cas ça compile.

Et comment puis-je faire pour visualiser ou réutiliser ce que contiennent maintenant mes variables ?