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
|
Sub Tableau()
Dim TblRetour() As Integer
Dim I As Long
Randomize
Tbl(1, 1) = Int(Rnd * 50) + 1
Tbl(1, 2) = Int(Rnd * 50) + 1
Tbl(1, 3) = Int(Rnd * 50) + 1
Tbl(1, 4) = Int(Rnd * 50) + 1
Tbl(2, 1) = Int(Rnd * 50) + 1
Tbl(2, 2) = Int(Rnd * 50) + 1
Tbl(2, 3) = Int(Rnd * 50) + 1
Tbl(2, 4) = Int(Rnd * 50) + 1
Tbl(3, 1) = Int(Rnd * 50) + 1
Tbl(3, 2) = Int(Rnd * 50) + 1
Tbl(3, 3) = Int(Rnd * 50) + 1
Tbl(3, 4) = Int(Rnd * 50) + 1
'ici, avec l'utilisation d'une fonction perso où tu peux
'transposer sur une feuille de calcul :
TblRetour = TableauPerso(Tbl)
'en ligne
Range(Cells(1, 1), Cells(1, UBound(TblRetour))) = TblRetour
'en colonne
Range(Cells(1, 1), Cells(UBound(TblRetour), 1)) = WorksheetFunction.Transpose(TblRetour)
End Sub
Function TableauPerso(Tablo() As Integer) As Integer()
Dim Tbl() As Integer
Dim I As Long
For I = 1 To UBound(Tablo, 1)
ReDim Preserve Tbl(1 To I)
Tbl(I) = WorksheetFunction.Max(Tablo(I, 1), Tablo(I, 2), Tablo(I, 3), Tablo(I, 4))
Next I
TableauPerso = Tbl
End Function |
