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
| Private Function Couleur(i As Long)
Dim Color(30) As Long
Color(1) = RGB(255, 0, 0)
Color(2) = RGB(255, 153, 0)
Color(3) = RGB(153, 204, 0)
Color(4) = RGB(0, 153, 204)
Color(5) = RGB(153, 51, 102)
Color(6) = RGB(255, 153, 0)
Color(7) = RGB(0, 153, 0)
Color(8) = RGB(0, 204, 153)
Color(9) = RGB(128, 0, 128)
Color(10) = RGB(204, 102, 0)
Color(11) = RGB(153, 51, 0)
Color(12) = RGB(204, 153, 0)
Color(13) = RGB(204, 204, 0)
Color(14) = RGB(0, 204, 0)
Color(15) = RGB(102, 153, 0)
Color(16) = RGB(51, 153, 102)
Color(17) = RGB(0, 128, 0)
Color(18) = RGB(0, 153, 153)
Color(19) = RGB(0, 102, 204)
Color(20) = RGB(102, 0, 255)
Color(21) = RGB(0, 102, 153)
Color(22) = RGB(51, 51, 255)
Color(23) = RGB(0, 0, 255)
Color(24) = RGB(51, 51, 204)
Color(25) = RGB(0, 51, 204)
Color(26) = RGB(153, 51, 255)
Color(27) = RGB(153, 0, 153)
Color(28) = RGB(153, 0, 51)
Color(29) = RGB(102, 0, 51)
Color(30) = RGB(102, 51, 0)
Couleur = Color(i)
End Function |
Partager