Tableau et Module de Classe

Salut les Développezeurs,

J'ai un problème : J'ai créé un module de classe avec une variable tableau, et je n'arrive pas à l'utiliser dans mon programme.
Voici le code :

Module de Classe :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private rdRsD(1 To 5) As Byte   Property Get RsD() As Byte() RsD = rdRsD End Property Property Let RsD(RsD() As Byte) For i = 1 To 5 rdRsD(i) = RsD(i) Next End Property

---

Code d'un bouton dans un UserForm :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CmdBLancer_Click() Dim i As Byte For i = 1 To 5 Randomize (Now) Dés.RsD(i) = Round((Rnd * 5) + 1, 0) '<======= C'est ici que çà bug ImgDé = ThisWorkbook.Path & "\Dé" & RslD(i) & ".jpg" UFDé.Controls("ImDé" & i).Picture = LoadPicture(ImgDé) Next End Sub

---

S'il vous faut plus de précisions, n'hésitez pas...

Bonjour,
si le tableau est déclaré privé, il n'est accessible que dans le module

pour le rendre accessible dans le formulaire

Code:

---

1 2	Dim rdRsD(1 To 5) As Byte

---

devrait convenir

Il me semble, Hélas, que les variables déclarées dans un module de classe ne soient accessibles que dans le module de classe, même étant délcarées "Public", afin de respecter la règle d'encapsulage.
C'est les fonctions "Property Get" et "Property Let" qui permettent d'accéder aux variables du module de classe.

Je crains que ta solution ne soit éronée.

En fait, je voudrais remplacer le code suivant :

Code:

---

1 2 3 4 5

Classe.Var1 = Tableau(1) Classe.Var2 = Tableau(2) Classe.Var3 = Tableau(3) Classe.Var4 = Tableau(4) Classe.Var5 = Tableau(5)

---

Par celui ci :

Code:

---

1 2 3

For i = 1 To 5 Classe.Tbl(i) = Tableau(i) Next

---

Mais çà ne fonctionne pas. Comment faire ? Quelqu'un a-t-il une solution ?

Mezci

Bonjour
dans le module initialisation du tableau rsd()

Code:

---

1 2 3 4 5 6 7 8 9

Global rsd(5) As Byte   Sub initialisation() Randomize (Now) For i = 1 To 5 rsd(i) = Round((Rnd * 5) + 1, 0) Next End Sub

---

et dans le code du bouton

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub CmdLancer_Clic() Dim i As Byte Call initialisation For i = 1 To 5 imgDé = ThisWorkbook.Path & "\Dé" & rsd(i) & ".jpg" ActiveSheet.Cells(i, 2) = imgDé Next   End Sub

---

si j'ai bien compris.
le ligne sous imgDé = ... m'a permis de verifier le bon fonctionnement.

Bonjour,

Une piste...

La classe Classe1:

Code:

---

1 2 3 4 5 6 7

Property Get RsD() As Byte() RsD = rdRsD End Property   Property Let RsD(ByRef RsD() As Byte) rdRsD = RsD End Property

---

Un test d'utilisation basé sur ton exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Test() Dim aTableau() As Byte Dim Dés As New Classe1 Dim i As Byte   ReDim aTableau(1 To 5) For i = 1 To 5 Randomize (Now) aTableau(i) = Round((Rnd * 5) + 1, 0) Next Dés.RsD = aTableau Debug.Print Dés.RsD()(1)   End Sub

---

Je me suis inspiré de ceci:
http://tissotemmanuel.developpez.com...lasse/#LIV-A-6
qu'il me semble intéressant de lire jusqu'au bout, entre autres ce qui concerne la Property ListItem.

Merci beaucoup pour ces réponses. Je vais les étudier attentivement.

Salut à toi, Ô surfeur égaré sur ce post instructif.

J'ai testé le code d'AlainTech qui fonctionne bien à condition de préciser ceci dans le module de classe :

Code:

---

Dim rdRsD

---

ce qui t'évitera la fameuse error '13' - Type mismatch.

Bonne visite.