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