Bonjour à tous,
j'ai codé avec l'aide d'un ami le fait de générer 32 cartes de manière aléatoire.
Cependant, cette distribution est visible, c'est-à-dire que le joueur jouant au memmory(jeu consistant à rerouver des paires) voit pas les cartes et non le dos des cartes. Je vous contacte pour vous demander de l'aide sur ce dernier point. Je ne sais pas comment effectuer cette distribution aléatoire tout en laissant sur le plateau de jeu le dos des cartes (image: fichier bmp), sachant qu'ensuite lorsque le joueur clique sur une des cartes il trouve une carte qui a été distribué aléatoirement précédemment. Je vous ai ajouté ci-dessous le code pour mieux comprendre:


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Private Sub cmd_Distribuer_Click()
 
Dim chemin As String
 
Dim TableauAffectation(1 To 16) As Integer
 
ReDim TabImages(1 To 32) As Object
Set TabImages(1) = Image1
Set TabImages(2) = Image2
Set TabImages(3) = Image3
Set TabImages(4) = Image4
Set TabImages(5) = Image5
Set TabImages(6) = Image6
Set TabImages(7) = Image7
Set TabImages(8) = Image8
Set TabImages(9) = Image9
Set TabImages(10) = Image10
Set TabImages(11) = Image11
Set TabImages(12) = Image12
Set TabImages(13) = Image13
Set TabImages(14) = Image14
Set TabImages(15) = Image15
Set TabImages(16) = Image16
Set TabImages(17) = Image17
Set TabImages(18) = Image18
Set TabImages(19) = Image19
Set TabImages(20) = Image20
Set TabImages(21) = Image21
Set TabImages(22) = Image22
Set TabImages(23) = Image23
Set TabImages(24) = Image24
Set TabImages(25) = Image25
Set TabImages(26) = Image26
Set TabImages(27) = Image27
Set TabImages(28) = Image28
Set TabImages(29) = Image29
Set TabImages(30) = Image30
Set TabImages(31) = Image31
Set TabImages(32) = Image32
 
For a = 1 To 32
 
    Do
 
        NbrAléatoire = Int((16 * Rnd) + 1) 'nbre aléatoire entre 1 et 16
 
        If TableauAffectation(NbrAléatoire) < 2 Then
            TableauAffectation(NbrAléatoire) = TableauAffectation(NbrAléatoire) + 1
            TableauCartes(a) = NbrAléatoire
            Exit Do
        End If
 
    Loop
 
Next
 
For a = 1 To 32
    chemin = (ThisWorkbook.Path + "\" + CStr(TableauCartes(a)) + ".bmp")
    TabImages(a).PictureSizeMode = fmPictureSizeModeStretch
    TabImages(a).AutoSize = False
    TabImages(a).Picture = LoadPicture(chemin)
Next
 
 
End Sub
PS: Je suis débutant