Discussion :

[Touffe54]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[helas]

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

pour le rendre accessible dans le formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim rdRsD(1 To 5)   As Byte

devrait convenir

[Touffe54]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[helas]

Bonjour
dans le module initialisation du tableau rsd()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[AlainTech]

Bonjour,

Une piste...

La classe Classe1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Touffe54]

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