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